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A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA III. 


ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 


SYSDATA III 
Aqui, tudo o que Você espera 
de um grande micro. 


SYSDATA HI 
Características técnicas. 
Para aqueles que querem 

saber tudo. 


Total compatibilidade com o 
TRS-80 Modelo II da Radio 
Shack 

Processador Z-B0-A 
Vídeo de 16 x 64 ou 16x 32 
(linhas x colunas) 
Alimentação de 110 V ou 220 V. 
Teclado alfanumérico de 

69 teclas 

Teclado numérico reduzido 


Compatível com o TRS-80 
Madelo TI da Radio Shack 
Gabinete, teclado e CPU em 
módulos independentes 
Versões de 64 a 128 KBytes de 
RAM, 16 KBytes de ROM 
Teclado profissional com 
numérico reduzido e 4 teclas 
de funções 
Sistema operacional de disco 
DOS Hl ou CP/M 2.2 com 4 teclas de funções 
Caracteres gráficos Gráficos com 128 x 48 pontos 
Vídeo composto com 18 MHZ no vídeo. 
de faixa de passagem Aceita até duas R$ AC 
Saída para impressora (Sincronas ou Assincronas) 
atalel Modem (opcional) 
Saída paralóia para 
impressora 
Placa controladora para até 
4 drives de 5 e 1/4", dupla 
densidade [180 KBytes por 
face), face simples (dupla face 
opcional) 








a 


SYSDATA HI 
Software disponível 
variado. Escolha o seu, 
Videotexto (TELESP) 
Projeto Cirandão 
(EMBRATEL) 

Rede de telex 

















Opções futuras: 











Sistema Gerenciador de Vídeo compatível 16 x 64, 
Banco de Dados (SGBD), 16x 32,24x 80 0u 24 x 40 

ai! (linhas x colunas) 
Compiladores Cobol, e - = 7 Expansão até 256 KBytes 


de RAM 

Alta resolução gráfica e cor. 

Interface para acionamento de disco rígido 
(Winchester) de 5, 10 ou 20 MBytes 

Clock dobrado (4,0 MHZ) 


Fortran, Pascal, Basic, Forth, 

Lisp e Pilot 

Editor de textos. Editor de Assembler. 
Desassemblador. 

Debugador 





Visicalc Total compatibilidade com o TRS-80 
Wordstar, Mod. IV. 
e muitos outros. CP/M versão 3.0. 


SYSDATA 


Svsdata eletrônica lda 5 - Av. Pacaembu, 788 - Pacaembu - SP - Fone: (D11]826.40 
























Maleta 


Maleta para transporte 
e proteção do seu 
computador. Em vinil, 
com forração interna e 
divisória para disquetes 


Interface serial de 
comunicações, padrão 
RS-232C. ligação através 
de MODEM, ou 
computador/computador 
ou ainda impressora serial 





Graph +: 

Intertace paralela para 
impressora com tunções 
gráticas e comandos 
próprios para as impressoras 
nacionais 








+ 16K, + 32K, 
+64Ke + 128K: 


Expansões de Memória RAM 
com a possibilidade de 
simulação de “disk-drive' 

de alta velocidade 
(pseudo-disco) 





Buffer: 


Memória adicional 
armazenadora de 
caracteres para impressora 
libera o computador para 
uso enquanto os dados são 
passados para a impressora 





Monitor II 


Monitor de video com alta 
detinição para textos (40 ou 
80 colunas) e gráticos. Tubo 

de 12”, tóstoro verde, com 
máscara anti-reflexo 


me 
= 





Impressora 6010 
Bidirecional. 100 CPS. 80 
colunas (132 com caracteres 
comprimidos) 





Impressora 
Grafix-80 


Grática. bidirecional. 80 CPS. 
80 colunas (132 com 
caracteres comprimidos) 





rojetados visandvansão, de forma a 
atender e acompa crescimento das 
necessidades do usus produtos Unitron 
destacam-se pela ade, presente em 

cadhe. 


Intertace para controlar até 
4 disk-drives de 8”, tace 
simples ou dupla (até 1,1 
Mbytes por disquete) 
Permite a formatação de 
disquetes no padrão 

IBM 3740 






















Disk-Drive 5 1/4" 


Face simples, densidade 
simples. 143 Kbytes por 
disquete 


Disk-Drive 8" 


Face dupla, dupla 
densidade.( até 1100 Kbytes 
por disquete) 


nitron T.I. 


»m de reunir as e 
racterísticas do AP II, 
Unitron Ap E!! ssuí o Teclado Inteligente 
Computador pessoal itron, que, diretamente, 
Microprocessador 6502. 4Mo em máquinas de 
de memória RAM e 12K dsrever, fornece 
memoria ROM, teclado CGjúsculas/minúsculas 
maiúsculas e minusculas, centuação da lingua 
8 conectores para rtuguesa. Apresenta a 
expansões. resolução racterística especial de 
gráfica superior rmitir a programação de 
a 50.000 pontos, saida parga tecla com comandos 
cassete e controlador de funções definidos pelo 
jogos Jário 


Acessório para ligação do 
Ap Il diretamente à antena 
daTV 








Módulo com 
microprocessador Z2-80 
adicional, permitindo 
utilização de Sistema 
Operacional CP/M 





Intertace controladora para 
até duas unidades de disco 


flexivel de 5 1/4" 





Módulo de cores, sistema 
PAL-M. Ligação direta a 
antena de televisor a cores 
(VHF - canais 3 ou 4) ou 
monitores de video coloridos 
PAL-M 





80 colunas: 
Módulo para mudança 
do padrão de video para 
80 colunas x 24 linhas. 





GPIB 


Interface para conexão 
a equipamentos de 
instrumentação com BUS 
padrão IEEE-488 





Cartão de memórias EPROM. 
para mudança de 
linguagem ou programas 
“residentes” 


Unitron Software: 


“a seleção dos melhores 


oftware nunca faltou 

para o Unitron Ap II. 
O problema estava em como 
escolher o mais confiável, o 
mais adequado para cada 
caso. Por isso surgiu a Unitron 
Software. Uma seleção dos 
melhores programas 
existentes no mercado, sujeitos 
a rigorosos testes e finalmente 
aprovados para também 
levarem o selo de Qualidade 
Unitron. E os melhores são: 





Super-Visicalc: 

Planilha de cálculos automáticos, 
com larguras de colunas ajustáveis 
individualmente. Permite fazer 
projeções com os dados atuais, 
Aplicações financeiras, fluxos de 
caixa, estimativas de custos. 
projeções de vendas, cronogramas 
de desenvolvimento de projetos, etc 


DIC: 

Programa Dicionário; compara 
todas as palavras integrantes de 
um arquivo gerado por um 


processador de texto, com um 
disco-dicionário. Corrige, aceita 
adições, conta palavras. etc. 


Janela Mágica 2: 


Programa processador de textos, 
ideal para redação e edição de 
cartas, contratos, memoriais 
descritivos, etc. 

Permite a gravação de textos em 
disquetes. numeração de páginas. 
inserção de titulos. justificação, 
busca de palavras, além da 
impressão em letras maiúsculas e 
minúsculas, com todos os caracteres 
de língua portuguesa gerados pelo 
Unitron T.. 


SPA: 


Sistema Pessoal de Arquivo. em 
formulários cuja estrutura é detinida 
pelo usuário. Inter-relaciona itens, 
permite buscas específicas, etc 


Passo a Passo: 


Curso de BASIC onde as instruções 
e cômandos de programação são 
assimilados gradativamente, 
através da atuação do usuário 
sobre as propostas apresentadas 
Inclui gráticos animados, edição 
de textos, manipulação “strings” e 
eteitos sonoros. 


Folha de Pagamento: 
Programa específico para o sistema 
brasileiro, soluciona os problemas 
de gestão pessoal de pequenas e 
médias empresas. Cadastra até 200 
funcionários por disquetes. Emite os 
seguintes relatórios: Hollerith, 





1 


Resumo ParcialTotal da Folha, 
Relação Bancária, Informe de 
Rendimentos, RAIS, Relação de 
Empregados. Guia de 
Recolhimento do IAPAS, Aviso 
Prévio Empregador e Empregado 


Contabilidade: 


Processamento on-line (consulta 
de dados sempre atualizados). 
pré-consistência de entrada de 
dados, utilização dos próprios 
documentos da Empresa, sem 
necessidade de planilhamento, 
consultas diárias para análise e 
controle gerencial, códigos de 
acesso, consultas específicas. 
utilização eticiente do tempo 
disponivel 


Ea Unitron mantém 
constantemente ativa a 
pesquisa/seleção. no sentido de 
oferecer uma linha de Software 
cada vez mais ampla. 





CAIXA POSTAL 14127 — 


TELEX (011) 32 
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3 SOFTWARE - “E agora, 
o que mais eu posso fazer 
com esta máquina?” Esta é a 
pergunta que muitos usuários — 
depois de passarem pela euforia 
inicial de ter um micro em casa, 
pela emoção dos jogos e 
utilização de diversos programas 
domésticos — estão fazendo a si 
próprios. Para responder a esta 
pergunta, MICRO SISTEMAS 
promoveu esta edição especial, 
com programas variados: 
utilitários, música, 
investimentos, jogos, desenho 

e aplicativos. E para você, que 
ainda não está craque o 
suficiente para desenvolver 

com rapidez o software para sua 
aplicação específica, a dica 

é observar as listagens, 
procurando absorver as técnicas, 
e adaptar os programas. 





14 MICRO BUG: O COMANDO F 

E OUTRAS TÉCNICAS DE 
UTILIZAÇÃO - Artigo que faz parte de um 
projeto que vem sendo desenvolvido pelo CPD de 


MS para os Sinclair. 

92 CÁLCULO DE ANTENAS DIPOLO 
ENCURTADAS - Rodada MS, trazendo 

o programa de Luiz Carlos Nardy, PY2AQO, 

para os micros da linha Sinclair. 


SOFTWARE 
SOFTWARE 
SOFTWARE 
SOFTWARE 
SOFTWARE 


SOFTWARE 


sistélico 


mio 










SOF TWAR 
SOF TwWAaR 
SOF TWAR 


SOF TWAR 





SOF TWAR 





PLANILHA ORÇAMENTÁRIA - 
Programa de Helvécio C. R. Netto e Jorge 
Luiz Grivot Maia para TRS-80. 


96 


98 LOTUS - 1-2-3 - Artigo de Carlos Mário 
Gomes de Almeida sobre o software mais 


famoso da linha IBM PC. 

1 1 O DBASE II, POR ETAPAS - Artigo de 
Filippo Galante sobre este gerenciador 

de arquivos para CP/M e MS-DOS. 


EE TT 


SEÇÕES 12 XADREZ 
6 EDITORIAL 18 BITS 
8 CARTAS 102 LIVROS 


106 CLASSIFICADOS 
E MENSAGEM DE ERRO 


108 DICAS 
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o més de novembro, dá-se o 

Informática-84, grande Congres- 

so e Feira promovidos pela en- 

tidade nacional de usuários — 
SUCESU — e cuja ocorrência, em geral, de- 
fine algumas tendências que o setor apresen- 
tará no próximo ano. 

Há exatamente um ano atrás, em São Pau- 

lo, o mesmo evento confirmava a força do 
mercado brasileiro da microinformática, mos- 
trando aos milhares de visitantes curiosos um 
potencial de indústria até então subestimado 
por nós. A linha Apple foi a opção de muitos 
fabricantes, alguns de “fundo de quintal”: os 
compatíveis com IBM-PC garantiam a inves- 
tida nacional no terreno dos 16 bits e a situa- 
ção do software ainda deixava bastante a dese- 
jar. 
De lá para cá, muita coisa mudou. Tanto 
o segmento de hardware quanto o de softwa- 
re, e mesmo as mudanças na filosofia de fun- 
cionamento das lojas, de um modo geral, per- 
mitem-nos afirmar que o mercado amadure- 
ceu de forma surpreendente. 

Dentre as alterações ocorridas ao longo do 
ano que passou, uma, para nós, aparece de 
forma muito especial e é unanimemente apon- 
tada pelos empresários do setor como a mais 
significativa: o usuário já está bem mais in- 
formado sobre o assunto e sabe o que pro- 
cura. 

O setor de hardware foi bastante movi- 
mentado A linha Apple sagrou-se líder defi- 
nitivo no segmento de 8 bits, em termos de 
volume de vendas. Das cerca de vinte marcas 
expostas na Feira de 83, contudo, somente 
umas três firmaram-se como detentoras de 
maiores parcelas de mercado. O resto ficou 
na periferia com fraca aceitação. 

Os equipamentos Apple, no entanto, aqui 
no Brasil, são usados predominantemente em 
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aplicações profissionais, e quase sempre com 

P/M, o que já caracteriza uma outra discus- 
são. O fato é que, na linha 8 bits, os equipa- 
mentos TRS modelo III, continuaram com 
ótima aceitação para uso pessoal, em parte 
porque este mercado está apoiado num grupo 
de usuários de alto nível (os funcionários de 
grandes estatais que tiveram compra facili- 
tada). Este pessoal tem feito — literalmente — 
misérias. 

Os pequenos — mas poderosos — micros 
compatíveis com Sinclair continuam um su- 
cesso, por seu baixo preço e boa performance, 
e agora têm a seu fhvor a garantia de contar 
com software de boa qualidade e desenvolvi- 
do de forma profissional. Neste particular, 
presenciamos o declínio do amadorismo, 
que antes era total. 

No segmento de 16 bits, também somen- 
te duas empresas tiveram participação mais 
significativa. Contudo, devido ao seu alto pre- 
ço e também ao mercado — ainda insípido — 
de software, esta linha não deslanchou como 
alguns previam. Este setor ainda está sendo 
avaliado pelos interessados, e neste primeiro 
ano, os maiores clientes foram as grandes 
corporações, sendo os equipamentos na maior 
parte das vezes, utilizados na emulação de 
terminais IBM. 

Outra vedete da Feira de 83, a rede local 
de microcomputadores ainda encontra-se, no 
Brasil, em fase de embrionária. Segundo os 
empresários do setor, particularmente os que 
atuam na revenda e assessoria especializada, 
isto deve-se ao fato de ainda não termos de- 
senvolvida a cultura relativa ao uso e altos 
custos que envolvem uma rede. Em outras 
palavras, falta as empresas uma clara defini- 
ção de suas filosofias de PD, além da consta- 
tação de que os micros ainda têm um enorme 
potencial inexplorado no uso individual. 
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Na área de software, o que se viu foium 
declínio de uma fase de depreciação, quando 
dava-se software em troca de pequenas com- 
pras ou favores. A antiga prática — principal- 
mente das lojas — de dar “brindes” aos com- 
pradores não mais se evidencia, pois, entre 
outras coisas, o “presenteado” percebeu, às 
custas de muita frustração, que, neste sentido, 
o que é grátis geralmente não presta, não tem 
documentação, não tem suporte e, por não 
permitir acesso à versões atualizadas, fica ra- 
pidamente obsoleto. 

Com um maior respeito, por parte dos que 
comercializam o produto, pelos autores de 
software nacionais, veio também o apoio da 
indústria de hardware. Alguns grandes fabri- 
cantes hoje oferecem a seus clientes software 
profissional, de autoria de terceiros, com o 
devido crédito e remuneração de direitos, e 
mais, com seu “selo” de aprovação. Isto vem 
ajudar a acabar com a miopia de certos em- 
presários de hardware que teimavam em ofe- 
recer, com seus produtos, pacotes próprios — 
péssimos, por sinal — de aplicativos básicos. 

Com isto, o software nacional desenvol- 
veu-se bastante, e as perspectivas são de um 
trabalho cada vez mais sério. Esta mão-que- 
lava-a-outra que está unindo os setores do 
hard e do soft, que tradicionalmente possuem 
interesses conflitantes, vai certamente trazer 
lucros para o mercado como um todo e, 
principalmente, para o usuário que vé-se en- 

lo 


volvido num ambiente cada vez mais profis- 
sional, 
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COMPUMICRO 


Nós dominamos esta tecnologia. 







Microprocessador INTEL 
8088 (16 BITS) 








MEXUS SO 


Só quem domina esta tecnologia pode oferecer o que 
há de melhor em 16 Bits 


CPU'S Standard 256 K Emulação de terminais / RJE 
Drives 5 1/4 DFDD (360 K) Comunicação micro x 
Winchester de 5 e 10 MB mainframe 
Monitores cromáticos/mono e Sistemas multiusuário 
Co-processador 8087 e Conversores de protocolo 

e 

e 


Expansões de memória Redes locais 
Todos os modelos de Software nacional 
impressora e estrangeiro 


Além disso, a Compumicro oferece com exclusividade 
o dispositivo 8088 processor card que permite operar 
software da linha PC em micros da linha Apple. 


AÊ O 


INFORMÁTICA EMPRESARIAL LTDA. 


Rua Sete de Setembro, 99 - 11º andar 
Tels: PBX (021) 224-7307 - 224-7007 - RJ 

















O sorteado deste mês, que receberá uma 
assinatura de um ano de MICRO SISTEMAS, 
é Luiz Augusto Franzese, de São Paulo. 





Sou leitor de MICRO SISTEMAS e acho- 
a a revista mais completa sobre microcom- 
putadores do Brasil. Gostaria, entretanto, 
de sugerir que vocês voltassem a publicar a 
Seção Equipamentos, e também que publi- 
cassem outro Micro-Mercado, pois já foram 
lançados vários micros desde a última edi- 
ção do Micro-Mercado (MS nº 16). 

Queria, ainda, que publicassem um curso 
de BASIC e de Assembler para a linha Sinclair. 
Só mais uma coisa: publiquem mais jogos 
para Sinclair, e, se possível, um jogo de xa- 
drez. 

Márcio Cosentino 
Rio de Janeiro-RJ 





Observando a expansão dos micros no 
país, decidimos separar o nosso Micro-Mer- 
cado por linhas de equipamento, incluindo 
muito mais informações de interesse do 
usuário. Além de nossa tabela tradicional de 
características e preços, dos equipamentos 
incluímos dados sobre periféricos, expan- 
sões, software e a visão do usuário em ex- 
tensas reportagens sobre cada família de mi- 
crocomputador. Comprove lendo as maté- 
rias: “Os pequenos notáveis” — tudo sobre os 
equipamentos da família Sinclair (MS nº 29, 
pág. 32); “Geração Radio Shack' — todasas 
informações sobre os equipamentos da linha 
TRS-80 (MS nº 31, pág. 50); e “As maçãs 
tropicais” — uma grande reportagem sobre os 
descendentes brasileiros do Apple (MS nº 
34, pág. 48). Leia e verifique que o nosso 
Micro-Mercado ficou muito mais completo. 

Quanto ao curso de BASIC, MS já publi- 
cou um completo: de MS nº 2 a MS nº 10. 
E o nosso Curso de Assembler (de MS nº 17 
a MS nº 35) baseou-se no microprocessador 
Z80, que é utilizado nos equipamentos da 
lógica Sinclair. Suas sugestões estão anota- 
das, e assim que algum leitor nos mandar um 
jogo de xadrez que seja aprovado por nosso 
CPD, nós o publicaremos, certo? 


ENDED NO JR 


Tenho um JR, da Sysdata, com 48K de 
memória e estou encontrando dificuldades 
ao tentar rodar alguns programas publicados 
em MICRO SISTEMAS. O primeiro proble- 
ma aconteceu quando tentei rodar um pro- 
grama para listar o conteúdo da memória: 
o programa roda normalmente até atingir 
1=32768, quando surge a notação “OV 
Error”. O mesmo acontece em nível de co- 
mando direto para PRINT PEEK (endereço) 
se o endereço é acima de 32767. Sei que a 
listagem só terá zeros e hexadecimais, mas 
por que .o “OV Error” se 32768 é o endere- 
ço final de 16 K e não de 48 K? Vale dizer 
que o comando PRINTMEN indica 48338, 
não havendo engano quanto à capacidade 
do micro. 


















farias 


Outro problema surgiu ao rodar o pro- 
grama “A função USR(X) no D-8000" (MS 
nº 17, pág. 20): o programa foi gravado e 
roda normalmente em outro JR de 16 K, 
mas no meu micro aparece a mensagem “FC 
Error” toda vez que rodo este programa ou 
qualquer outro que use USR(X). E mesmo 
as instruções do manual a respeito desta fun- 
ção não apresentam resultado. Seria algum 
problema de endereçamento? 

Alfredo A. Maia 

São Paulo-SP 


Como é nosso hábito, Alfredo, remete- 
mos suas indagações para a Sysdata, que nos 
mandou a seguinte resposta: 

“Os chips utilizados na versão 48 K do 
JR-Sysdata são de 64 K, embora na versão 
cassete só seja possível acessar 48 K. O siste- 
ma de endereços é por pares conjugados, de 
modo que, para listar o conteúdo acima de 
32767, use o correspondente negativo, ou 
seja, —32767 e assim sucessivamente, pois 
desta forma teremos: 32767%32767=64 K-. 

Quanto ao problema de não conseguir 
rodar um programa que roda em outro JR- 
Sysdata, utilizando a função USR(X), isto 
ocorre provavelmente porque um JR tem o 
JR EXTENDED BASIC e o outro não. Den- 
tro do EXTENDED BASIC pode-se usar 
até 10 funções de usuário, mas sem o 
EXTENDED BASIC só é possível usar uma 
função, e nesse caso a sintaxe deveria ser 
USR(0) e não USR(N). O JR EXTENDED 
BASIC pode, inclusive, ser desligado para 
entrar interferências, em outros programas, 
através do comando CMD"“OFF” (na versão 
2.0 em diante) ou CMD“B”, “OFF” (nas 
versões anteriores). 

Sergio D'Azzi 
Depto. de Apoio ao Usuário da Sysdata 


ADENDO ÚTIL 


Complementando a excelente reporta- 
gem “Os pequenos notáveis” (MS nº 29, 
pág. 32), é interessante notar que a linha do 
popular e barato micro inglês foi um fracas- 
so no mercado dos EUA, a ponto da Sinclair 
chegar às portas do abismo financeiro em 
fins de 1982. Para tentar uma recuperação, 
a Sinclair despediu seu representante comer- 
cial na América do Norte, a Timex, passan- 
do então a comercializar o produto direta- 
mente via reembolso postal (aliás, como ou- 
trora), com um novo micro, o Sinclair-QL 
(Quantum Leap). 

As especificações do QL são as seguintes: 
chip básico da Motorola (de 32 bits); tecla- 
do tipo profissional com 65 teclas; duas por- 
tas RS-232C; interface para joystick; um 
slot para cartucho ROM; resolução 512X256; 
oito cores; 128 K de memória RAM, expan- 
dível para 640 K; incluindo dois drives para 
gravação, tudo por US$ 499. 

Os drives do QL não são do tipo disco, 
mas de fita. São do novo tipo cassete, com 
capacidade para 100 K cada, com um tempo 
de acesso de 3,5 segundos, em média, e com 
uma velocidade de transferência de 15 
Kbytes por segundo. O DOS utilizado 
(QDOS) permite tarefas e quadros múlti- 
plos, incluindo programas para o processa- 
mento integrado de palavras Database, grafia 
e Spreadsheets (em BASIC). 

O equipamento opcional inclui uma in- 
terface para impressora, um gerador de som 
de canal múltiplo, modem, interface para 





disco rígido, emulador para terminal, compi- 
lador para Pascal e o Assembler 68000. 
Edmundo G. F. da Silva 

Rio de Janeiro-RJ 


AUXILIO EM HARD 


Meu interesse maior com relação a mi- 
crocomputadores é a área de hardware e in- 
felizmente as informações disponíveis nesta 
área são raras. Por isso, recorro a vocês: 
como instalar, no TK-85, um conector de 
EPROM (com rotinas para aperfeiçoar o 
BASIC), preferivelmente com endereço de 
acesso logo acima do último endereço da 
ROM original? 

Valério F. Laube 
Schroeder-SC 


Nós não temos como ajudá-lo, Valério, 
mas, como você mesmo nos orientou (com 
a autorização para publicar seu endereço), 
pedimos aos leitores que saibam como fazer 
esta conexão para entrar em contato com 
MS ou com o próprio Valério: Caixa Postal 
30, Schroeder, Santa Catarina, CEP 89260. 


CRÍTICA RETIRADA 


Foi com grande satisfação que recebi o 
manual técnico do TK-2000. Tal sentimento 
aumentou ao receber da Microdigital uma 
resposta às solicitações e críticas enviadas à 
MICRO SISTEMAS. Portanto, através desta 
agradeço a deferência e retiro o afirmado so- 
bre a propaganda enganosa. 

Com relação ao manual técnico, este in- 
forma também como acessar os 64 k da 
RAM: realmente representa um avanço no 
suporte aos usuários de microcomputadores 
no Brasil. Assim, plagiando a revista MICRO 
SISTEMAS (na reportagem “O direito e o 
avesso do TK-2000”" — MS nº 34, pág. 74 — 
“Amor/Ódio"), parabenizo a Microdigital, 
colocando-me como um atual apaixonado 
pelo meu micro (...). . 
Dr. Roberto César Costa 
Bento Gonçalves-RS 


TELESOFTWARE 


Soube através da MICRO SISTEMAS de 
um novo sistema de transmissão de software 
via telefone: TELESOFTWARE. Possuo, en- 
tretanto, algumas dúvidas: 

1 — Como ser assinante do Videotexto? 

2 — É possível a ligação via modem interface 
do Rio de Janeiro para a central de processa- 
mento em São Paulo (tipo interurbano)? Ca- 
so afirmativo, existe alguma limitação no 
número de ligações por usuário? 

3 — Aonde e por quanto posso adquirir o kit 
composto pela interface RS 232-C, modem 
e software de comunicação? 

Renato P. da Cunha 

Rio de Janeiro-RJ 





Como as perguntas feitas referem-se às 
características técnicas do serviço Tele- 
software, remetemos suas indagações para a 
Telesp, pois MICRO SISTEMAS participa 
do Telesoftware como fornecedora de 
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software. Eis as explicações da Telesp: 

“Existem duas categorias de assinantes 
do Videotexto (VDT): O residencial e o ins- 
titucional. Os usuários de micros CP-300 e 
CP-500 (e em breve também os usuários da 
linha Apple) podem ser assinantes do VDT, 
bastando para isso possuir o kit VDT e estar 
cadastrado na Telesp. O cadastramento é so- 
licitado através do telefone (011) 884-2535. 
Ao se cadastrar, o assinante pode pertencer 
à categoria residencial (Cr$ 2.279,00 por 
mês) ou institucional (Cr$ 14.586,00 por 
mês), dependendo do telefone a que estiver 
vinculado. 

Por enquanto, a Telesp só está aceitando 
assinantes da capital de São Paulo, mas está 
em estudos a liberação, em breve, do atendi- 
mento a outras praças, dentro da área de 
atuação da Telesp. Não há escritório no Rio 
ir de outras lo- 
stá sob a gerencia da empresa do 
grupo Telebrás em cada Estado. 

Não há limitação por número de ligações 
por usuário, apenas há a franquia, inclusa na 
atura, de 200 minutos por mês pa 
encial e 300 minutos por mês para o 
institucional. Os minutos adicionais serão 
cobrados da seguinte forma: Cr$ 23,00 (no 
horário de 8 às 20 horas) e Cr$ 14,00 (das 
20 horas até às 8 horas) para o assinante re- 
sidencial; e Cr$ 36,00 (em qualquer horá- 
rio) para o institucional. 

O kit VDT pode ser encontrado nas 
lojas: Mappin, Breno Rossi, Fotóptica e 
Filcres. O preço do kit varia de acordo com 
a sua configuração: cerca de Cr$ 500 mil 
para o kit completo, incluindo interface RS 
232-C, modem, cabo, software e manual; 
em torno de Cr$ 230 mil sem a interface RS 
232-C; e aproximadamente CrS 30 mil só o 
softwi adaptação e o manual. 

Por fim, é interessante destacar que o 
Telesoftware é a utilização da central VDT 
como banco de software, sendo um serviço 
exclusivo para assinantes do VDT que pos- 
suem microcomputadores (...)'” 

Cesar Ricardo Ceva 
Gerente do Projeto Videotexto-Telesp 


ENDEREÇOS DO CP-300 


Sou usuário de um CP-300, da Prológica, 
e gostaria de obter mais informações sobre 
endereços de memória, pois muitos não cons- 
tam no manual de operação e programação 
do equipamento. 
Paulo Marcos T. de Oliveira 
Rio de Janeiro — RJ 























Solicitamos os endereços de memória 
que não constam no manual à Prológica e eis 
a relação destes endereços: 

16396 — Vetor de desvio de BREAK; 
16416 — Caracter do cursor; 
16872 — Buffer de entrada (RS 232C); 
16880 — Buffer de saída (RS 232-C); 
16888 — Código de transmissão/recepção 
(RS 232-C); 
Parte mais (+) significativa = TX 
(transmissão); 
Parte menos (—) significativa = RCV 
(recepção); 
16889 — Código de paridade/comprimento 
da palavra (RS 232-C); 
16890 — Chave de espera do RS INIT; 
O — não espera; 
* 0 — espera. 
Paulo Sergio Carreiro 
Gerente de Marketing da Prológica 
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ANTES TARDE... 


Na MS nº 34, vi na Seção Dicas (pág. 72, 
“Proteja cópias em K-7") como evitar o 
RAND USR 837 nos equipamentos da linha 
Sinclair. Mas conheço, faz tempo, uma outra 
artimanha para isso: em vez de usar o SAVE 
ou o RAND USR 757, aconselho utilizar o 
RAND USR 761, que reconhece o RAND 
USR 837 como um LOAD normal, ou seja, 
ele carrega o programa sem introduzir o erro 
C/0. Vale a pena destacar ainda que esta di- 
ca só funciona em FAST. 

Espero que esta tenha ajudado, mesmo 
chegando atrasado. Gostaria, por fim, de pa- 
rabenizá-los pelo alto nível que a Seção Di- 
cas tem alcançado. Continuem assim. 

Luiz Augusto Franzese 
Santos-SP 


Agradecemos pela sua iniciativa, Luiz, 
mas nunca é tarde para colaborar conosco. 
Aproveitamos para repassar esta sua dica 
aos leitores, bem como repassar os seus elo- 
gios para todos os leitores que colaboram 
com a nossa Seção Dicas. E também quere- 
mos lhe fazer uma sugestão: por que você 
não se torna mais um colaborador de MS? 

só mandar seus programas e artigos, bem 
explicados e com endereço completo, para a 
nossa Redação. 





Antes de mais nada, muito obrigado 
mesmo pela publicação da carta “S.O.S. 
VIC-20". Tanto a revista quanto os(as) lei- 
tores(as) foram extremamente atenciosos 
comigo (coisa que a cada dia que passa está 
diminuindo, mas isso é outra coisa). Infor- 
mo que já resolvi o problema (adaptar o 
VIC-20 para o sistema PAL-M) aqui mesmo 
em Campinas e a chave transformadora fun- 
ciona a contento. Não houve necessidade de 
mexer no micro. 

Gostaria de informar, também, que agra- 
decerei, por carta, a todos que eviaram solu- 
ções/sugestões para o problema. 

Gutemberg C. Penteado 
Campinas-SP 


A Microhouse é, na capital federal, a 
mais recente empresa do ramo de microin- 
formática, e destina-se à prestação de servi- 
ços contábeis e a ministrar cursos de progra- 
mação. Nos intervalos das sessões de instru- 
ção, a revista MICRO SISTEMAS é manu- 
seada com muito interesse por todos, e es- 
ta Direção a julga indispensável para quem 
ingressou no fantástico mundo dos micros. 
Assim, parabenizamos a equipe redacional 
de MICRO SISTEMAS pela variedade de 
assuntos e excepcional qualidade gráfica. 
Carlos A. Attanazio 
Diretor Administrativo da Microhouse 


Gostaria de agradecer sinceramente pela 
atenção dispensada ao meu problema com o 
TK, e informo que, como a resposta da Mi- 
crodigital indicou, já tomei as providências 
no sentido de encaminhar o meu equipa- 
mento para a assistência técnica autorizada, 
no meu caso, no Rio de Janeiro. Espero re- 
ceber logo de volta o equipamento, quando 
me comunicarei com vocês. Novamente, 
obrigado. 











Aproveito também para felicitá-los pelo 
Projeto MICRO BUG, realmente uma tare- 
fa séria e de grande valia para os usuários da 
linha Sinclair, os quais nunca receberam tan- 
ta atenção por parte de uma publicação na- 
cional. Mais um ponto para MS! 

Os artigos sobre Inteligência Artificial 
também são muito interessantes, principal- 
mente pelo fato de abrirem espaço para ou- 
tras linguagens. Só nos resta esperar por uma 
maior popularização das mesmas. 

Marco André A. Vieira 
Juiz de Fora-MG 


Admiro muito esta publicação. Faz tem- 
po que queria escrever esta carta, mas Ml- 
CRO SISTEMAS me mantém o tempo todo 
no meu CP-200. Aprendi BASIC lendo li- 
vros, manuais e utilizando MS na prática (ou 
melhor, no computador). Meu desejo agora 
é aprender a linguagem Assembler: leio tudo 
que vocês publicam sobre esta linguagem 
com especial atenção. Gostei muito do Cur- 
so de Assembler e do MICRO BUG. MS é a 
melhor revista de computação por essas (e 
pelas outras) bandas. incrível, os progra- 
mas são cada vez mais legais. Recomendo 
MS a todos os meus amigos que têm micro, 
pois programador sem MS nas mãos não é 
programador. 

Gosto muito das Seções: Cartas, Dicas e 
Livros. Acho também muito honesto da par- 
te de vocês colocarem a Seção Mensagem de 
Erro. Não se acanhem não, pois HERRAR E 
UMANO, Parabéns ao Renato Degiovani pe- 
los adventures: digitei e gostei dos dois. Es- 
pero outros. Para vocês, um FOR |=1 TO 
1000000000: PRINT “MILHARES DE FE- 
LICITAÇÕES PARA MS”: NEXT 
Alexandre Negrão Paladini 
São Paulo-SP 


FABRICANTES RESPONDEM 


(...) Gostaria de desvendar algumas dú- 
vidas: 
1º) Com relação ao PC-1500, da Sharp: 
— O que significa LINE (X(A), Y(A))(X(1), 
Y(1)), S,B e também CSIZE 1? 
— O PC-1500 possui cores? Quantas? 
2º) Com referência ao TK-2000: 
— Qual a posição de memória no TK-2000 
Color para ligar e desligar o teclado, sem o 
acionamento da função GET? No Apple, é 
— 16384 para ler o teclado, e — 16368 para des- 
ligar o teclado. 
— À medida em que vão sendo digitadas as 
linhas de um programa, elas vão sendo auto- 
maticamente transformadas para os códigos 
hexadecimais equivalentes: as linhas, espaços 
e pelavras reservadas — tokens (palavras-códi- 
gos), que diferem para cada microprocessa- 
dor utilizado. Supondo-se que um programa 
digitado consumiu 1,0 byte, se listamos, em 
linguagem de máquina, a área 0800.00BFF, 
encontramos bytes 00 e FF passeando na lis- 
tagem, sem que haja qualquer relacionamen- 
to entre as palavras reservadas. Como se ex- 
plica isso? 
Vicente José Alves Bacelar 
Vitória de Santo Antão-PE 


Remetemos a sua carta, Vicente, para a 
Sharp S/A e para a Microdigital. Publicamos 
agora as respostas dos fabricantes do PC-1500 
e do TK-2000, respectivamente: 

“O comando LINE (X(A), Y(A))-(X(1), 
Y(1)), S,B traça uma linha do par ordena 
do (XAa. YA) até (X43, Y4) com o respectivo 
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tipo de linha (S) e cor (8). A letra À indica, 
através do valor da memória 4, o ponto ini- 
cial da linha; o número 1 indica o ponto fi- 
nal. A letra S fornece, também através do 
valor de memória S (de O a 9), o tipo de li- 
nha; e a letra B indica a sua cor, através do 
valor do registro 8. 

O comando CS/ZE 1 especifica o tama- 
nho dos caracteres para toda a impressão 
subsequente. Existem nove tamanhos de im- 
pressão de caracteres disponíveis (de 01 até 
9). O formato pode ser como o citado acima 
ou através de um registro qualquer. E impor- 
tante observar que o valor não poderá ser 
menor que 1 ou superior a 9. 

A impressão do PC-1500 trabalha com 
quatro cores: azul, verde, preto e vermelho. 
A identificação destas cores é feita através 
do comando COLOR. Para selecionar, por 
exemplo, a cor preta, digita-se COLOR O. 
Para as outras cores, são os seguintes côdi- 
gos: azul= 1; verde —2; e vermelho = 3.” 
Francisco Teixeira Braga 
Coordenador de Treinamento da Sharp 


“No Apple temos — 16384, que no TK 
2000 corresponde a 39. E — 16368 no Apple 
não tem correspondente no TK-2000. 

Devemos informar que todo programa 
digitado no TK-2000 começa no endereço 
2049 (em decimal), e o conteúdo dos en 
dereços corresponde realmente aos códigos 
dos comandos, comprimento das linhas digi 
tadas e números de linhas digitadas. Os codi- 
gos 00 e FF são encontrados quando não há 
nenhum programa no micro.” 

Ricardo Tondowski 
Relações Públicas da Microdigital 


/ CLOCK CARD NO D-8100 / 


Sou usuário de um Apple Dismac e ad 
quiri, há algum tempo atrás, um clock card. 
Enquanto eu operava através do DOS e do 
BASIC estava tudo bem, pois era possível 
chamá-lo através de um soft específico que 
acompanha o cartão. Mas depois que come 
cei a utilizar o CP/M, não consegui mais uti 
lizar o clock card. Tenho visto em várias 
revistas que é possível a utilização de um 
clock através do CP/M, mas nenhuma expli 
ca como. 

O meu clock card possui 7 switches 
quando estou operando-o através do BASIC 
ligo o switch 7, coloco o cartão no slot 5 e 
dou um BLOAD no programa, Depois é só 
dar um CALL 900 para colocá-lo em fun 
cionamento e um CALL 1000 para desativá- 
lo. Ele utiliza uma pilha que se recarrega du- 
rante o uso do computador. Agora, a per 
gunta: como faço para colocá-lo em ativida: 
de a partir do CP/M, ou mais especificamen- 
te, através do DBase? 

Rizieri Maglio 
São Paulo-SP 








Como sempre, mandamos sua dúvida pa- 
ra o fabricante do D-8100. Eis a resposta do 
fabricante: 

“(...) Apesar de todas as buscas em dois 
fabricantes de cartões adicionais para os 
equipamentos compatíveis com o Apple, 
não conseguimos literatura suficiente sobre 
o clock card (cartão não disponível normal- 
mente no mercado nacional), nem sobre o 
soft específico, o que está nos dificultando 
para uma correta informação. Pedimos que 
o usuário nos envie a documentação técni- 
ca que dispõe, para que possamos avaliar e 
fornecer a maneira certa de proceder. 

Salientamos também ser necessário nos 


informar sobre qual configuração de memó- 
ria estã o CP/M, e supondo-se que o CP/M 
está rodando sobre um programa em BASIC, 
esta linguagem está interpretada ou compi- 
lada? Pode estar ocorrendo, no caso do 
BASIC interpretado, uma sobreposição no 
endereço chamado pela rotina, ou no caso 
do BASIC compilado, uma falta de /ink- 
edição com esse módulo. 

Também é importante frisar que pode es- 
tar havendo um condicionamento ao sistema 
operacional DOS, e ao microprocessador 
6502, pois pode ocorrer um desvio, já pré- 
definido, para o núcleo do sistema opera 
cional, o que inviabilizaria sua utilização em 
outros sistemas, como por exemplo, o CP/M, 
que requer outro microprocessador, com 
endereços totalmente diferentes. Ressalte-se 
que são suposições técnicas, que só serão 
confirmadas com o envio das informações 
solicitadas. 

Com relação à pergunta formulada (colo- 
cá-lo em atividade através do DBase): a cha- 
mada de rotinas através de CALL, suposta- 
mente desenvolvidas em Assembler, é feita 
em DBase da seguinte forma: 

SET CALL TO endereço 

CALL endereço 

logicamene, mediante prévia carga dessa ro- 
tina no endereço especificado. 

Gostaríamos de destacar o nosso total in- 
teresse em, dentro dos recursos disponíveis 
quanto a documentação existente, solucio- 
nar o problema apresentado, bem como dei- 
xamos à disposição o nosso Departamento 
de Software para solucionar eventuais neces- 
sidades."” 

Roberto M. Valente 
Gerente de programação da Dismac 


f USUÁRIOS ATENDIDOS / 


Em nossa Seção de Cartas de MS nº 34 
(edição de julho/84), publicamos a carta de 
29 funcionários de Estireno do Nordeste 
S/A — EDN —, com o título “Fórum confiá- 
vel”, em que estes relatavam seus problemas 
com um lote de TK-2000 recentemente 
adquiridos na Microdigital. Publicamos tam- 
bém a resposta da Microdigital, em que esta 
assegurava a breve resolução dos problemas 
apresentados pelos usuários. Recebemos a 
carta dos 29 funcionários da EDN, em nome 
do Sr. Gilson Gileno, na qual constatamos 
que os problemas apresentados foram resolvi- 
dos. Agradecemos mais uma vez ao pessoal da 
EDN por nos prestigiarem e publicamos a 
seguir a carta: 

“A publicação de nossa carta foi para 
nós uma imensa satisfação, pois veio ratifi- 
car e consolidar a imagem dessa revista co- 
mo defensora dos consumidores de micro- 
computadores. 

Realmente a Microdigital assumiu uma 
postura de garantir seu produto (...) e o sis- 
tema de envio dos equipamentos com defei- 
to via avião com frete a pagar para a Micro- 
digital funcionou e continua funcionando, o 
que resolveu a maioria dos nossos problemas 
(170 
Gilson Gileno — EDN S/A 
Camaçari — BA 


/ 


Comprei um microcomputador Ringo e 
agora pertenço ao fantástico mundo de Ml- 
CRO SISTEMAS. Gostaria de utilizar este 











SUGESTÕES y 





privilégio para pedir a publicação de pro- 
gramas para o meu Ringo, como: programa 
para gravar programas em velocidade nor- 
mal (300 Bauds), que permite total compa- 
tibilidade e troca de programas entre outros 
equipamentos da linha Sinclair. 

Walter Nabuco Rocha 

Belo Horizonte-MG 


Façam reportagens abordando: a utiliza- 
ção de um mini; como funciona um CPD, 
quem trabalha nele etc. O primeiro mini a 
ser abordado poderia ser o Cobra-500, afinal 
é o primeiro computador genuinamente bra- 
sileiro. 

Maurício C. Reis 
Rio de Janeiro-RJ 


Tenho algumas sugestões a fazer 
1 — Valorizem mais os jogos, de preferência, 
os de aventuras para o TK-85. 

2 — Continuem publicando mais jogos para 
o TK, pois vejo que MICRO SISTEMAS dá 
muito valor aos usuários de micros da fami- 
lia Sinclair 

3 — Publiquem junto ao curriculo do cola- 
borador o endereço/telefone deste. 

4 — Separem, em cada edição, os programas 
para equipamentos diferentes (linha Sinclair, 
TRS-80, Apple, calculadoras etc.), usando, 
de preferência uma página inteira com moti- 
vos eletrônicos, como, por exemplo, para a 
linha Sinclair, escrevam no meio da página 
e nos cantos desenhos de programas que fi 
zeram sucesso nesta linha de micros. 

Se estas sugestões não forem atentidas, 
não deixarei, porém, de comprar todo mês 
esta excelente revista. 

Márcio Alexandre 
Rio de Janeiro-RJ 


Venho por meio desta parabenizá-los pe- 
lo excelente nível de MICRO SISTEMAS, a 
qual considero a melhor revista sobre micro 
computadores e computação no plano na- 
cional. Mas nem por isso deixarei de propor 
que se crie, na medida do possível, novas se- 
ções dentro desta extraordinária revista, tais 
como 
— artigos sobre expansões para os computa- 
dores da linha Sinclair, como alta resolução, 
cor, gravador de EPROM, sintetizador de 
sons etc; 

concurso de software; 
- antologias sobre os microprocessadores 
Z-80, 8088, 6502 etc. 
André Luiz Guimarães 
Porto Alegre-RS 


Tenho acompanhado a MICRO SISTE- 
MAS e quero dizer que ela atende aos meus 
anseios completamente: trabalho com pro- 
gramação e me interessa tudo de atual (tan 
to em software como em hardware), e tudo 
isso busco nas páginas de MS, 

Gostaria, entretanto, de sugerir a publi- 
cação de macetes em programação Cobol 
(na área comercial), e também mais progra- 
mas em Forth. 

Sinto, a cada dia, a necessidade de me 
manter atualizado, por isso, continuarei con- 
tando com vocês. 

João Aloisio Zambrano Gargantini 
Presidente Prudente-SP 








Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nossa 
pauta e procuraremos, na medida do 
possível, viabilizá-las. 
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Configuração Bá 


CPU-64k com teclado 





A CLAPPY JÁ TEM O MICRO ENGENHO 2. 

Adivinhou! Além disso, a Clappy 

O novo Micro Enge- tem periféricos, softwa- 
nho 2 é cem por cento res, suprimentos, cursos 
compatível com o Apple de programação e opera- 
II Plus e o Apae Ile. ção. 

Ele tem 64Kk bytes de Implantamos e 
memória RAM, e uma 
interface controladora 
de discos já incorporada 
na placa principal. 

Tem teclado com ca- 
racteres em português, 
com cedilha e acentos. 

E teclado numérico 
reduzido. . 

E junto com o Micro 
Engenho 2 você recebe 
dois programas: proces-, 
samento de texto e plani 
lha financeira. 

E mais! À Clappy tem 
sempre o melhor preço e 
consultores técnicos que 
analisam o seu problema. 

Por isso,a Clappy 
vende soluções, não 
apenas computadores. 











instalamos sistemas, e 

a nossa assistência | 

técnica é a mais técnica. 
Opcionais: 

Expansão até 192 k. 

Cartão opção gráfica. 

art de comunicação 

Cartão CP/M. 

Interface serial 232C. 

Interface paralela. 








O lado gente da máquina 


Venha à nossa loja ou solicite a visita 


de um representante. 

Centro: Rua Sete de Setembro, 88 
Loja Sigaleria) -Tels.: as 222-5517 
-5721 - Av. Rio Branco, 12 loja 

e sobreloja - Tel.: (021) 2553-3395 

São Cristóvão: Rua Antunes Maciel 
25-2º andar - Tels.: (021) 264-2096 
234-0214. 


Fopacabena: Rua Pompeu Loureiro, 99 
Teis.: (021) 257-4398 - 236-7175 
Aberta diariamente das 9 às 19 horas 
e aos sábados das 9 às 14 horas. 
Assistência técnica: 284-3 
Entregamos em todo Brasil pelo 
reembolso Varig. 


ADIVINHE COM QUEM ELE É COMPATÍVEL 2 








LOmMo construir 


Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 
Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”. Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 


no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 








putadores, estarão sempre presentes em 
MICRO SISTEMAS. 














Dê tempo ao Elite 
e ele ganhará 


N, misterioso personagem de 

N ficção que tem enriquecedido a 

literatura enxadrística interna- 

cional e nacional, mais uma vez dá sua 
preciosa colaboração a esta seção. 

Empolgado com sua vitória sobre o 

Elite World Champion, jogando no nível 
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Tempo do Avaliação | Profundidade 
[forno | rr | Tregato | digo | Panini” | Mana 
in. 





A5 (com tempo médio de dois minutos 
por jogada), NN pensou poder repetir 
sua façanha contra o mesmo jogando no 
nível B3 (tempo médio de três minutos 
por jogada). Ficou só no desejo... 

Na primeira partida, NN teve sucesso 
com o sacrifício especulativo de um ca- 










Nº de variantes 
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valo e três peões. Entretanto, este sacri- 
fício não apresentou o mesmo resultado 
na segunda partida. NN entregou o cava- 
lo desnecessariamente, já que, com 14 — 
C3BR, as brancas ficariam com posição 
muito superior. O intento (malogrado) 
de NN era dar o/é no micro e conseguir 
uma vitória incomum. 

Na figura 1 temos o quadro demons- 
trativo do desenrolar da segunda partida, 
onde podemos observar a performance 
favorável do Elite através dos indicado- 
res de tempo, avaliação da posição, pro- 
fundidade da análise (em meias-jogadas) 
e número de variantes analisadas. 

E a seguir você pode acompanhar as 
jogadas da primeira partida (apenas da 
posição 20 em diante, já que até aí as 
duas foram iguais) e tirar as suas pró- 
prias conclusões. 


NN x Elite World Champion 
Nível A5 (dois minutos para cada jogada) 


Igual até a jogada 20 — B6C(?) (me- 
lhor teria sido 857). 20 — ... D3D(?); 21 
— T6R D6T; 22 — D4BD+ R1B;23 — 
TxB CxT; 24 — B5B P4CD; 25 — D2B 
D5T; 26 — BxC+ R2B; 27 — DxPB+ 
R1C; 28 — B6D D2BR;29 — B6D D2BR; 
30 — D4D D4B; 31 — T7R D2B; 32 — 
TxD. Depois de tantas perdas materiais 
sem qualquer compensação posicional, 
continuar a partida seria perda de tempo. 

Veja nos diagramas A, B e C os mo- 
mentos mais emocionantes desta disputa 
entre o desconhecido NN e o Elite. 









DxPB. As bran- 
cas iniciam o 
ataque direto ao 


Nesta posição as 
respostas das ne- 
gras divergiu da 





3c 
R2c (segunda 
partida). NN, 
que não tem 
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um satélite artificial 
sem sair da cadeira. 










Veja no Show de 
IBM Brasil. | 


A IBM não pára 
de desenvolver novas 
tecnologias, em seus 
centros científicos e 
laboratórios de pesquisas 
em todo o mundo. Estas 
conquistas serão 
demonstradas em show de 
multivisão, com utilização 
de laser em seu stand na 
Feira de Informática. 

Nele estarão, ao vivo, os mais 
novos produtos IBM, alguns dos 
quais pela primeira vez exibidos no 
país. Veja tudo o que a IBM oferece 
a você, seja qual for o seu campo de 
atividade profissional. 

Entre as estrelas deste show de 
tecnologia, você vai ver o terminal IBM 


Diagrama A — Disgrama B — Diagrama C — 5080, um avançado sistema gráfico, capaz 
. » Posi, d fe Bo P a f . . 
dota “20 000 Uso de 28 - DIC de projetar, nos mínimos detalhes, desde o mais simples 


sólido até o mais complexo satélite espacial. . 
E as impressoras a laser, eletro-erosão e multi-velocidade. 


['V FEIRA INTERNACIONAL DE INFORMÁTICA - DE 5 A 11 DE NOVEMBRO 
FAOCENTRO, RJ 


Informática 84 da 


monarca.“ negro primeira partida. cede E mais o sistema robótico IBM 7535, em ação, mostrando ESSE 
ao BE a rei Você al ver em plo tunconamento  EMBr 
cavalo. ido abandonou a uistas você vai ver em pleno funcionamento, 

areia, t.lemonstrando o que a IBM pode fazer pelo pais e por uma vida melhor. Show de tecnologia 


para uma vida melhor. 








NOENNTA 








O Comando 
F e outras 


técnicas 
e 


utilização 





perfeita compreensão de um 
sistema ou programa é requi- 
sito fundamental para um de- 
sempenho eficiente do mes- 
mo. A sub-utilização, característica mar- 
cante por esses lados do equador, tem 
como principal consequência o prejuí- 
zo, tanto financeiro quanto funcional. 

Esse tipo de problema é frequente- 
mente gerado pela baixa qualidade dos 
manuais técnicos (em alguns casos eles 
nem mesmo existem) dos produtos bra- 
sileiros. Os fatores que contribuem para 
isso são os mais diversos, como o alto 
custo gráfico, a ainda pequena demanda 
e principalmente a pirataria. 

Mas o problema não pode ser visto 
apenas por esse lado. De fato, por mais 
completo que seja um sistema ele não 
terá utilidade-ou desempenhará suas 
funções inadequadamente - se o seu 
usuário não estiver preparado e consci- 
ente para tal tarefa. Um programa pode 
não funcionar se quem o estiver utilizan- 
do não conhecer nada a respeito dos 
propósitos e fins do mesmo. 

Nesse mês, veremos o último coman- 
do funcional do SGM e aproveitaremos 
para rever alguns pontos dos comandos 
anteriores que estão gerando alguma 
dificuldade de utilização por parte dos 
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leitores. A forma que adotaremos para 
tal será do tipo problema/solução, lem- 
brando sempre que o MICRO BUG só 
será cem por cento eficiente, se o usuá- 
rio souber exatamente o que quer e co- 
mo obter os resultados desejados. 


O COMANDO F 


O comando F é um dos comandos 
mais simples do SGM e serve para pre- 
encher um determinado bloco de memó- 
ria com um valor específico. A sua es- 
trutura vale-se de rotinas operacionais já 
implementadas por outros comandos, de 
forma que o mesmo ocupa uma quanti- 
dade mínima de memória. 

A sintaxe do comando F é: 

>F xxxx, yyyy,Z 
ou seja, gravar no bloco que inicia no 
endereço xxxx, até o endereço yyyy, O 
caráter Z. 

A utilização desse comando está di- 
retamente vinculada a um profundo 
conhecimento da estrutura operacional 
da máquina, pois é preciso muito cuida- 
do para não sobrepor áreas vitais do Sis- 
tema Operacional, como a área das va- 
riáveis, o arquivo de imagens, as pilhas 
do processador, etc. Mais uma vez vale 
ressaltar que o SGM não questiona O 


QUE o operador está fazendo e nem 
ONDE, sendo que o mesmo deve ter o 
máximo de cuidado com as operações 
via SGM. 

A digitação do comando F segue as 
mesmas especificações dos comandos 
anteriores, não sendo necessário ne- 
nhum cuidado especial. Não esquecer, 
porém, de alterar a Tabela de Definição 
dos Comandos. 


USANDO O MICRO BUG 


A prática do MICRO BUG pode re- 
solver uma grande quantidade de pro- 
blemas encontrados na utilização fre- 
qiente do equipamento. É preciso, po- 
rém, ter sempre em mente o fato de que 
o MICRO BUG reside numa área RAM 
e portanto passível de sofrer alterações. 

Essas alterações podem ser intencio- 
nais ou acidentais e as devidas correções 
podem causar muito mais prejuízo do 
que o desejável, portanto TODO CUI-- 
DADO É POUCO. Outro problema fre - 
quente é a perda de controle do sistema, 
causada por um erro de operação, o que: 
obrigará o usuário a desligar o equipa - 
mento e recarregar o MICRO BUG. 

De uma forma ou de outra, o conhe:- 
cimento e compreensão global do pro»- 


MICRO SISTEMAS, novembro/8:4 


blema a ser resolvido é essencial para a 
perfeita solução do mesmo. 

Vejamos então alguns desses proble- 
mas e como equacioná-los usando o MI- 
CRO BUG. Antes, porém, será preciso 
certificar-se de que o SGM está operan- 
do na base Hexadecimal, para isto entre 
com o comando A $=D para indicar que 
todos os valores devem ser considerados 
na base hexadecimal e os valores antece- 
didos por $ serão interpretados como 
valores decimais. 


PROBLEMA 1: Como criar linhas REM 
para armazenamento de rotinas em lin- 
guagem de máquina. 


O comando que cria linhas REM, no 
SGM, é o COMANDO E, cuja sintaxe é 
E xxxx,yyyYZ; Ou seja, criar a linha nú- 
mero XXXX, com yyyy caracteres z. 

Qualquer número de linha, de 1 a 
9999 é aceito normalmente e se já existir 
uma linha com tal numeração o sistema 
acusará o problema, interrompendo a 
ação do comando. Também é possível 
criar linhas com qualquer quantidade de 
caracteres e com qualquer caráter do mi- 
cro. 

Um aspecto importante a ser mencio- 
nado é que o próprio equipamento tem 





Listagem 1 





COMANDO F 


794A 3C ZE def 7ZE3C 
ZE3C CD FZ 
7E3F 2a 31 
7E42 

7E45 77 
7E46 CD 
7E49 


CALL 7BF7 
LD HL, (79314 
LD A, (7935) 
LD (HL),A 
CALL 7E4B 
JR 7E45 


limitações quanto a estruturação de li- 
nhas, dessa forma, não espere que o MI- 
CRO BUG funcione perfeitamente onde 
nem mesmo o Sistema Operacional tem 
um procedimento correto. Criar linhas 
com numeração fora da faixa permitida 
pelo micro ou com uma grande quanti- 
dade de caracteres pode acabar causan- 
do problemas funcionais insolúveis. Um 
deles é que uma linha REM muito gran- 
de, quando é deletada, faz o micro sair 
do ar. 

Quanto ao tamanho das linhas REM, 
se o usuário está criando-as para a digi- 
tação de um programa publicado em 








(grava bloco com caracter) 


; COMANDO F. 


sparametros iniciais. 
sinicio do bloco. 

aracter a ser gravado. 
sgrava caracter. 

sproximo endereco ate" fim. 


, 





uma revista, então não haverá problema 
para as quantidades mencionadas nos 
textos. Porém, se o usuário estiver crian- 
do linhas REM para o desenvolvimento 
de um programa seu, então será preferi- 
vel criar diversas linhas pequenas ao in- 
vés de uma linha gigante (procure não 
ultrapassar, como procedimento normal, 
a quantidade de 500 caracteres por li- 
nha). 

Outro ponto importante é certificar- 
se da base em que o SGM está operando, 
pois pode-se facilmente introduzir um 
erro de difícil percepção. Veja como, na 


base hexadecimal, os comandos abaixo 





TIPPEGPLE 


Computação 


CURSOS rm MICROCOMPUTADORES 


São Paulo 
Campinas 
Jundiaí 


BASICI — BÁSICO 


BASIC |l - AVANÇADO 


Método Próprio de Ensino 

Professores Especializados 

Apostilas Completas de Textos e Exercícios 
1 Micro para cada 2 alunos 

Nº limitado de vagas / turma 


— Av. Rouxinol, 201 
— Rua Cesar Bierrenbach, 171 
— Rua São Francisco Salles, 16 


— Fone 61-4595 
— Fone 8-3608 


— Fone 437-7988 


Rio de Janeiro — Av. N. S. Copacabana, 1417 - loja 313 - Fone 521-1549 





O COMANDO F. «« 


funcionam de modo diverso causando 
uma diferença apreciável de resultados: 


DE 10,32,% 

E 610,32,% 

DE 10,832,% 

DE 610,632,% 
PROBLEMA 2: Como operar a digitação 


de programas publicados nas revistas, 
usando o MICRO BUG. 





Antes de mais nada é preciso avaliar 
o tamanho do programa a ser digitado, 
pois o MICRO BUG estará ocupando 
4.5 K bytes de memória. 

Em programas grandes, que visivel- 
mente ocupam mais de 10 Kbytes de 
memória, será preciso reduzir o MICRO 
BUG, ou seja, cancelar a área de 2.5 K 
reservada para os Módulos Operacionais. 
Essa área pode ser. desativada, logo após 
a introdução do SGM, executando o se- 

inte comando: 

OKE 16389, 120 e NEW. 

Os programas menores, que são a 
grande maioria, não necessitam desse 
recurso e é preferível manter a área dos 
Módulos Operacionais intacta, pois, em 
alguns casos, ela poderá ser usada como 
buffer especial para alguma rotina em 
linguagem de máquina. 

A criação das linhas REM deve obe- 
decer rigorosamente às especificações do 
programa a ser digitado, sob pena de ha- 
ver problemas funcionais quando o mes- 
mo for testado. O caráter escolhido não 
é fundamental, porém é aconselhável 
que o usuário escolha sempre um único 
caráter, para se acostumar ao seu valor 
durante a introdução dos códigos de má- 
quina. Isso facilita bastante a detecção 
de erros. 

A digitação em si será feita através do 
COMANDO M, dando entrada no ende- 
reço inicial em que será gravado o bloco 
Assembler, por exemplo: >M 4082 indi- 
ca a digitação de um bloco que inicia no 
endereço $16514 (em decimal). A cada 
dado, o próximo endereço é apresenta- 
do com o seu devido conteúdo. Em caso 
de erro, basta retroceder os endereços, 
usando a tecla (J) e digitar o valor cor- 
reto. Para interromper a entrada de da- 
dos basta pressionar BREAK ou, se o 
usuário preferir, ressetar o comando 
com SHIFT 1. 

preciso atenção para estabelecer a 
visualização dos valores numéricos na 
forma em que estão publicados. Veja es- 
sas especificações na edição 32 de MS, 
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rotina exemplo 


CALL 0288 

LD A,H 

FE CP FE 

JR NC, 4082 
LD B,H 

É. CL. 

CALL 07BD 

LD A,CHL) 

CP 76 


4082 BB 02 
4085 
4086 
4088 FB 
408A 
4088 
408C 
408F 
4090 76 
4092 EE JR Z,4082 
4094 00 cP 00 

4096 RET 

4097 CB 77 BIT 6,A 
4099 EZ JR NZ, 4082 
4098 PUSH AF 
409C 2A CALL DAZA 
409F POP AF 
40A0 Fo LD B,FO 
40A2 RST 10 
40A3 FD DJNZ 40A2 
4085 DB JR 4082 


BD 07 





onde o comando M é apresentado. Para 
fazer uma verificação do que foi digita- 
do, utilize o comando D ou, se for o 
caso, o comando P. 





PROBLEMA 3: Como monitorar um 
teste de uma rotina em linguagem de 
máquina. 





Essa talvez seja uma das maiores faci- 
lidades que o MICRO BUG oferece em 
matéria de depuração de programas, 
pois com ele é possível rastrear os regis- 
tradores e seus respectivos conteúdos. 
Para ficar claro o que será exposto a se- 
guir, vamos pressupor a existência de 
uma rotina para imprimir na tela da tv 
um caráter qualquer. O sistema deverá 
retornar, caso a tecla BREAK seja pres- 
sionada. Tal rotina está apresentada na 
listagem 2. 

Em primeiro lugar, crie uma linha 
REM com 50 caracteres e digite a roti- 
na. Em seguida, volte ao BASIC e tes- 
tea com RAND USR 16514. Experi- 
mente diversas teclas e depois retorne 
ao SGM. 

Estando no SGM, a forma de testar 
uma rotina é usar o comando G. Para 
isso, digite G 4082 e veja que o seu fun- 
cionamento ainda é o mesmo. Podemos 
visualizar o que ocorre internamente na 
rotina através do comando H (basta 
pressionar a tecla H), que mostra o valor 
de cada registrador. Zere-os com o co- 
mando NN,0 e chame novamente a ro- 
tina exemplo. Após retornar ao SGM 
opere novamente o comando H e com- 
pare os valores finais, dos registradores, 





sle teclado. 
sespera tecla pressionada. 


sidentifica tecla. 


sreinicia se for ENTER. 


sretorna se for BREAK. 


srecomeca se tecla nao for 
spermitida. 


;CLS. 


s imprime 240 caracteres. 


sreinicia processo. 


com os seus respectivos valores iniciais 
(no nosso caso eles eram 0). 

Podemos verificar o conteúdo dos re- 
gistradores após a leitura do teclado, in- 
troduzindo um BREAKPOINT no ende- 
reço 4084. Para isso, digite o comando: 
K 4084 e em seguida chame a rotina 
com G 4082. 

A execução da rotina é interrompida 
pelo BREAKPOINT e o sistema devolve 
o controle ao SGM. Liste os registrado- 
res com H e compare os resultados. 

É possível colocar o BREAKPOINT 
em outros pontos da rotina e podemos, 
até mesmo, simular uma determinada si- 
tuação; por exemplo, para que a roti- 
na funcione como se a tecla A tivesse 
sido pressionada, basta colocar um 
BREAKPOINT no endereço 40AS5, gra- 
var o acumulador com o valor 26 ( NA, 
2600 ) e chamar a rotina a partir do en- 
dereço 4090. 

Diversas outras situações podem ser 
reproduzidas, desde que se tenha o cui- 
dado de não colocar o BREAKPOINT 
num endereço impróprio (por exemplo 
408D), ou chamar a rotina em um ende- 
reço também impróprio (por exemplo 
4083). 





PROBLEMA 4: Como criar um arquivo 
de rotinas em linguagem de máquina, 
usando fitas cassete. 





Uma interessante prática, para quem 
desenvolve programas em geral, é man- 
ter um arquivo de rotinas em Assembler 
para as mais diversas utilizações. Pode- 
mos ter rotinas padrões, para leitura e 
interpretações do teclado, controle dire- 
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cional de movimentos em jogos, siste- 
mas utilitários, etc. A vantagem de man- 
tê-las em arquivos de fitas é a eliminação 
da necessidade de constante digitação. 

Suponhamos uma determinada rotina 
que produz um SORT em programas 
BASIC. Podemos digitá-la uma vez e en- 
tão dar o comando I xxxx,yyyy, onde 
XxxxX é O primeiro endereço da rotina e 
YYyy O último. A experiência recomen- 
da que a gravação seja feita uns bytes 
antes do início da rotina e, seu término, 
uns bytes após o final, por questões de 
segurança. 

Quando houver necessidade de utili- 
zar tal rotina, basta criar uma linha 
REM para recebê-la e em seguida carre- 
gá-la, do cassete, através do comando 
J xxxx,yyyy. Esse comando não grava a 
rotina nos endereços originais, mas sim 
no bloco xxxx,yyyy, definido pelo 
usuário, o que permite o deslocamento 
da paso dela na memória. 

conveniente, nesses casos, manter 
as rotinas dentro de linhas REM comple- 
tas, ou seja, uma linha REM para cada 
rotina. Esse processo pode ser usado 
também para arquivar telas em cassete. 


PROBLEMA 5: Como fazer uma cópia 
de um programa protegido. 


Geralmente os programas comerciais 
possuem proteção contra cópias, visan- 
do dificultar a pirataria. Uma conseqiiên- 
cia natural disso é que o usuário co- 
mum, que tiver a sua fita danificada por 
um acidente, será obrigado a comprar 
uma nova fita. 

Um dos meios de se evitar esse tipo 
de aborrecimento, e consequente prejuí- 
zo, é fazer uma cópia do programa para 
ser usada em lugar da fita original. Isso é 
fácil de ser obtido com o MICRO BUG, 
apesar do programa não ser interrompi- 
do e consequentemente não permitir o 
SAVE normal do micro. 

Afim de evitar problemas operacio- 
nais, carrega-se o programa a ser copiado 
fora da área normal do sistema, ou seja, 
numa área entre os endereços 4400 e 
7700 que corresponde à memória de re- 
serva do BASIC. Utilizamos a técnica de 
modificações do RAMTOP para obter 
uma área maior (comprimir o SGM) e, 
para isso, deve ser dado, em BASIC, o 
comando POKE 16389, 120 e NEW. 

Antes de iniciar o LOAD é necessário 
preencher essa área com um valor co- 
nhecido. Use para isso o comando F, da 
seguinte forma: F 4400,7700,. Em se- 
guida, o comando J com: J 4410,7700. 
Tal comando irá iniciar o carregamento 
do programa, na área estabelecida, e 
“quando a imagem do vídeo se estabili- 
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zar, ou seja, perder a característica de 
LOAD, pressiona-se a tecla BREAK. 
Nesse momento, o programa todo está 
na memória do micro e pode ser exami- 
nado com o auxílio do comando D. 

Para fazer a gravação será preciso co- 
nhecer o endereço do último byte do 
programa, ou seja, onde estiver gravado 
uma série de asteriscos. O primeiro en- 
dereço dos asteriscos é o endereço final 
do programa e deve ser usado no coman- 
do 1 4410,yyyy. Quando essa cópia for 


carregada no micro, via LOAD "", o 
comportamento do programa será exata- 
mente igual ao do original. 


Esse procedimento permite a cópia 
de programas com mais ou menos 12,5 
Kbytes, o que corresponde à quase to- 
talidade dos programas existentes. Os 
usuários de micros com 48 K podem 
usar os 32 K de memória que ficam após 
o SGM como um buffer que permite até 
dois programas de 16 K. 





PROBLEMA 6: Como recuperar uma 
gravação em fita cassete que apresenta 
problemas. 


Os tipos de defeitos que podem sur- 
gir numa fita cassete são os mais varia- 
dos e é praticamente impossível saber 
realmente o que houve, ou qual é o de- 
feito, pois normalmente o micro não 
permite que essa fita seja carregada na 
memória, forçando um NEW sempre 
que tentamos. 

Com o MICRO BUG isso não aconte- 
ce, pois as rotinas de gravação do SGM 
lêem a fita cassete independentemente 
do que elas contêm. Dessa forma, é pos- 
sível colocar um programa na memória 
e logo depois examiná-lo e tentar corri- 
gir os defeitos. O processo para tal está 
claramente explicado no problema ante- 
rior e deve ser tentado, cercando-se dos 
maiores cuidados. 

Podemos mesmo recuperar progra- 
mas em fitas que sofreram deformações 
físicas (amassada ou cortada) ou que 
contenham gravações difíceis de serem 
normalmente lidas pelo micro. Para as 
correções, podemos usar o comando M, 
juntamente com o comando D. 

O índice de sucesso será tanto maior 
quanto. maior for o conhecimento do 
usuário acerca do sistema de estrutura- 
ção dos programas em BASIC. 


PROBLEMA 7: Como construir uma ta- 
bela de rotinas para programação em lin- 
guagem de máquina. 


Geralmente os programas em lingua- 
gem de máquina utilizam algumas roti- 


nas do Sistema Operacional do micro. A 
maior vantagem disso é que não precisa- 
mos escrevê-las ou nos preocupar com o 
seu desempenho, pois elas já se encon- 
tram na memória, porém é preciso mui- 
ta cautela e conhecimento ao usá-las. 

Não existe ainda nenhuma literatura, 
em português, que traga uma tabela 
completa acerca dessas rotinas, com in- 
formações sobre seu desempenho em di- 
versos pontos de entrada, os pré-requisi- 
tos de entrada, as condições de saída e 
também sobre a situação de cada regis- 
trador em retorno, ou seja, quando a ro- 
tina volta ao ponto de chamada. 

O MICRO BUG pode ser usado para 
a criação de uma tabela, fazendo um es- 
tudo pormenorizado das rotinas mais 
utilizadas pelos programadores. Tal es- 
tudo pode ser feito mediante o uso do 
comando G, tendo sido os registradores 
previamente ajustados com valores co- 
nhecidos (veja procedimento no PRO- 
BLEMA 3). Se os testes forem feitos di- 
retamente na ROM, não será possível 
utilizar o BREAKPOINT, porém, na 
maioria dos casos, o programador pode 
transferir a rotina, mediante o uso do 
comando O, para uma área RAM e aí 
então inserir os BREAKPOINTS que de- 
sejar. 


AS DÚVIDAS OPERACIONAIS 


Como dissemos no início desse proje- 
to, a utilização do MICRO BUG abre 
uma infinidade de possibilidades para o 
usuário dos micros Sinclair que querem 
usar seu equipamento com um pouco 
mais de eficiência. Será preciso, no en- 
tanto, algum esforço e dedicação por 
parte dos leitores que nos acompanharam 
até aqui, e que querem seguir em frente. 

A partir de agora, com o SGM com- 
pleto, o usuário dispõe de uma ferra- 
menta que pode ser manuseada de for- 
ma a trazer-lhe uma interação muito 
maior com a máquina. Mas não vamos 
parar por aqui. Veremos na próxima edi- 
ção como implementar um Módulo Ope- 
racional e como você poderá criar o seu 
próprio módulo (ou adaptar um para 
seus propósitos específicos). Além disso, 
manteremos um canal, via cartas, sem- 
pre aberto para as dúvidas e consultas 
acerca do MICRO BUG. 

Não deixe de nos escrever se estiver 
tendo algum problema ou, então, para 
compartilhar suas experiências e desco- 
bertas com os outros leitores. Lembre- 
se, a sua experiência pode ajudar muito 
um outro colega. H 


Este projeto vem sendo desenvolvido pela 
Equipe do CPD de MICRO SISTEMAS, sob 
a coordenação de Renato Degiovani. 
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Informática 84 
promete grandes atrações 


E O SS e em e 


Cerca de 300 expositores es- 
tarão reunidos de 5 a 11 de no- 
vembro na IV Feira Internacio- 
nal de Informática e XVII Con- 
gresso Nacional de Informática, 
que vão se realizar paralelamen- 
te no pavilhão do Riocentro, 
no Rio. Os organizadores estão 
esperando mais de 500 mil pes- 
soas entre profissionais da área e 
público em geral. Para isso, estão 
prometendo grandes atrações, 
como um avião Brasília e um fo- 
guete tipo sonda do Centro Téc- 
nico Aeroespacial;|a Casa do Fu- 
turo, totalmente computadori- 
zada, que será montada pela Su- 
cesu; um setor dedicado a equi- 
pamentos e software voltados 
para a Medicina e a Odontologia; 
e várias atividades para crianças. 
Além disso, serão conhecidos os 
novos lançamentos dos fabrican- 
tes, sendo a grande vedete o su- 
per micrão da Cobra. 

Os organizadores também es- 
tão preocupados com a parte so- 
cial e política que envolve o se- 
tor de Informática. Por isso, es- 
tão programando um seminário 


com a presença de antropólogos 
e sociólogos sobre os efeitos da 
Informática na sociedade. E con- 
vidaram Tancredo Neves e Paulo 
Maluf para falar sobre como será 
a Política Nacional de Informá- 
tica a partir do dia 16 de março 
de 1985, caso sejam eleitos. 

Este ano, a Feira será dividi- 
da em sete setores: hardware, 
consultoria de software, perifé- 
ricos, suprimentos, publicações, 
software aplicativo e pesquisa e 
desenvolvimento. O maior estan- 
de mais uma vez será o da IBM, 
com 1.000 m*. Outra novidade 
deste ano é que a Feira só será 
aberta ao público de sexta a do- 
mingo. Nos quatro primeiros 
dias, apenas os profissionais do 
setor terão acesso. Os organiza- 
dores querem, com isso, eliminar 
o tumulto que o público sempre 
provocava nas últimas Feiras, fa- 
cilitando assim o fechamento de 
negócios, objetivo maior da Fei- 
ra. O horário de funcionamento 
será das 14 às 22 horas e os in- 
gressos para o público vão custar 
Cr$ 5 mil por pessoa. 


Expansão de memória 
para o Color 64 


A Tarrise Projetos ao lado da 
LZ — Sistemas está preparando 
uma placa de expansão de me- 
mória para o Color 64, compat(í- 
vel com o software existente no 
mercado. A expansão consiste 
em dois bancos de 64 K que po- 
dem ser selecionados por uma 
chave ou por software. Como 
cada banco é isolado, pode-se 
carregar e executar programas 
independentemente. 

Outro produto desenvolvido 
pela Tarrise e comercializado pe- 


que se destina, principalmente, à 
área educacional. Este sistema 
permite que onze computadores 
Color 64 sejam interligados, for- 
mando uma pequena rede local 
comandada pelo instrutor, atra- 
vés de um painel de controle. O 
comutador de recursos permite 
que todos os alunos comparti- 
lhem os mesmos periféricos, di- 
minuindo assim os custos de 
montagem de um laboratório de 
Informática e agilizando o mé- 
todo de ensino. 





Cartão tri função, 
da Spectrum 


A Spectrum está lançando o 
cartão Tri Função que torna o 
Microengenho 2 totalmente com- 
patível com o Apple Ile, quan- 
do este possui o Extend 80 Co- 
lumn Text; Card. O cartão Tri 
Função possui 64 Kbytes adicio- 
neis e permite a visualização de 
80 colunas por 24 linhas de tex- 
to no vídeo, aumentando a ca- 
pacidade de memória. Com a uti- 
lização do cartão, passa a ser pos- 


sível também a duplicação gráfi- 
ca, com a geração do dobro do 
número de pontos. 

Além dessa novidade tam- 
bém já se encontra disponível 
o Videotexto Spectrum que per- 
mite transformar os micros Mi- 
croengenho 1 e 2 em terminais 
de videotexto. Além do softwa- 
re, o produto é composto por 
interface de comunicação assín- 
crona (ICA) e um modem. 


Grande venda de modems 


A Elebra S/A Eletrônica Brasileira assinou, com a Embratel, o maior 
contrato brasileiro para venda de modems, num valor de mais de 8 e 
meio bilhões de cruzeiros. Com a compra de modems de alta e baixa ve- 
locidade, a Embratel pretende expandir o Sistema Transdata. Esse con- 
trato, segundo a Elebra, é resultado da recente reestruturação do seu 
Departamento de Teleprocessamento. 


Computer Factory 


Computer Factory é uma nova empresa, inaugurada em São Paulo, 
voltada para a comercialização de microcomputadores, periféricos e soft- 
ware. No seu show-room, situado à Rua Estados Unidos, 1.883, profis- 
sionais especializados no mercado de Informática orientam o cliente na 
escolha do software e hardware, adaptando-os às necessidades de cada 
empresa. Também podem ser encomendados sistemas específicos, para 
as diversas áreas de utilização de micros, e a Computer Factory cuida 
ainda da implantação e do treinamento do pessoal. Maiores informações 
podem ser obtidas pelos tels.: (011) 280-2550 ou 64-0769. 


VersaCad, da Comicro 


Centro 

de 
Informática, 
na 
Micromag 


Um Centro de Informática 
que promove reuniões diárias, 
palestras e cursos. Esse é o novo 
departamento, já em funciona- 
mento, da loja carioca Micromaq 
e, através dele, os usuários de 
micros podem se reunir, para tro- 
car idéias a respeito dos seus 
equipamentos e participar de di- 
versas palestras de interesse na 
área, ministradas por técnicos e 
fabricantes de computadores na- 
cionais. » . 

Além dos cursos oferecidos 
na loja, a Micromaq organiza ou- 
tros, dedicados às empresas, nas 
áreas de Eletrônica, Telecomuni- 
cações, Microprocessadores, Sis- 
temas de Comunicação e Com- 
putação. 

Em relação às reuniões de 
usuários, já existe uma progra- 
mação estabelecida: segundas e 
quartas-feiras, das 12 às 14 ho- 
ras, os da linha Apple; terças e 
quintas-feiras, das 12 às 14 ho- 
ras, os da linha Sinclair; e aos 
sábados, os usuários do Color 
64. Já as palestras serão sempre 
ministradas às sextas-feiras e o 
tema girará em torno de assun- 
tos do interesse dos alunos e dos 
usuários que frequentam as reu- 
niões. Maiores informações po- 
derão ser obtidas pelo tel.: (021) 
222-6088. 





Wordstar e dBase na Tesbi 


Wordstar e dBase são os novos cursos que a Tesbi Informática está 
oferecendo em suas dependências ou diretamente às empresas interessa- 
das. 

Continuam sendo oferecidos também os cursos de BASIC 1 e 2, com 
turmas pela manhã, tarde e noite, em vários horários. 

A Tesbi fica na Av. Vinte e Oito de Setembro, 226, loja 110, em Vi- 
la Isabel, Rio de Janeiro. 


Seminários Servimec 


A Servimec já tem imados os seguintes seminários, pa- 


progra 
ra o mês de novembro: “Plano Diretor de Informática — Uma 
Necessidade Atual”, nos dias 12, 13 e 14; “O CPD em Tempo 


de Crise — Como Reduzir Custos de Sistemas de Informação”', 
nos dias 21, 22 e 23; “Planejamento de Instalação de 4381", 
nos dias 26 e 27; “Administração de Ambiente VM/VSE — Téc- 
nicas e Procedimento”, nos dias 28, 29 e 30. Todos estes semi- 
nários vão se realizar em São Paulo e maiores informações po- 
derão ser obtidas pelo tel.: (011) 222-1511. 





Lotus: 
Consultoria e Treinamento 


Inaugurada em julho de 1983, a empresa carioca Lotus Software e 
Consultoria especializou-se no treinamento e implantação, em empresas, 
dos mais sofisticados softwares recentemente lançados no mercado norte- 
americano, dando especial atenção ao Lotus 1-2-3, dBase || e Multiplan. 

Segundo o Diretor da Lotus, Carlos Mário Gomes de Almeida, que 
traz em seu currículo um período de treinamento intensivo na empresa 
americana Four-Five-Six, na área de desenvolvimento de software, ope- 
rar o 1-2-3 sem qualquer tipo de aprendizado dirigido é difícil. “Leva al- 
guns meses para absorver. No primeiro dia, você já poderá fazer uma pla- 
nilha básica, mas ainda não terá usado 5% da potencialidade do software”. 

A firma ministra cursos de 20 horas, com uma média de dois alunos 
por equipamento, geralmente nas instalações do cliente, cobrando por 
pessoa 40 ORTNs. Embora sediada no Rio de Janeiro, à Av. Almirante 
Barroso, 91/1107, Centro, a Lotus conta com uma equipe que se mobi- 
liza por todo o país, fazendo cursos e palestras. O telefone é (021) 220- 





Novos 
Donos 


As lojas Compute e C. C. 
Compute têm agora novos 
donos. As duas lojas, situadas 
em São Paulo, foram compradas 
por um grupo composto por seis 
sócios, proprietários da M. M. D., 
empresa de assistência técnica e 
software. Os nomes das lojas 
foram mantidos e lá podem ser 
encontrados equipamentos da 
linha Apple (Unitron, CCE, 
Appletronic e Spectrum, entre 
outros); TRS-80 (CP-300 e 
CP-500, da Prológica); e Sinclair 
(TK83 e 85, da Microdigital; 

e CP-200, da Prológica). 

Além de micros, também são 
comercializados drives, 
impressoras, formulário 
contínuo, livros e revistas de 
Informática, videogames e 
software da Royal Software, e 
de outras software houses. O 
grupo aceita encomenda de 
software para áreas específicas e 
presta assistência técnica, 
através da M. M. D. Nas lojas 
são oferecidos cursos de BASIC 
Avançado e Operação de 
Equipamentos da linha Apple e 
de TK, para iniciantes. O mesmo 
grupo estará inaugurando em 
breve uma nova firma, a 
Supritudo, especializada em 
suprimentos para 
microcomputadores. As lojas 
Compute e C. C. Compute ficam 
respectivamente na Rua Estados 
Unidos, 2.441, tel.: (011) 
852-8533 e Av. Sumaré, 287, 
tel.: (011) 262-5097. 
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la LZ é o comutador de recursos, 


Maquis lança novo micro 


A Maquis Tecnologia e Sistemas Ltda., tradicional empresa de manu- 
tenção e suporte de software, está lançando o microcomputador profis- 
sional MTS-IV, cujo projeto já foi aprovado pela SEI. O equipamento é 
baseado em microcomputador Z80-A, com memória de 128 Kb, e tem 
capacidade para acoplar quatro discos flexíveis de 5 1/4" e quatro dis- 
cos de 8”, além de discos rígidos de 5, 10 e 15 Mb e impressora de 100 
cps a 600 1pm. 

Entre as principais características do MTS-IV estão a modularidade 
de crescimento, que permite o atendimento tanto ao mono-usuário co- 
mo à integração em rede local, o processamento distribuído, a simula- 
ção de terminais 2780 e 3270 da IBM e da SISCO e conecção com qual- 
quer mainframe com protocolos BSC, SDLC, Pull Select, TTY, VIPe 
outros. O sistema operacional usado é o DOS-MB, compatível com CP/ 
M. Quanto ao software, o usuário poderá dispor de uma grande varieda- 
de, entre os quais planilha eletrônica, editor de texto, banco de dados, 
contabilidade, contas a pagar, folha de pagamento etc. A Maquis fica 
na Av. Barão de Tefé, 7, grupos 501 e 508, Rio de Janeiro, e seu telefo- 
ne é (021) 263-3330. 


O Comicro Microcomputa- 
dores, revendedora de produtos 
de Informática que até então vi- 
nha atuando no sul do País, inau- 
gurou recentemente seu escritó- 
rio em São Paulo e lançou na ca- 
pital o VersaCad. Trata-se de um 
software de CAD (Computer 
Aided Drafting) para microcom- 
putadores compatíveis com a li- 
nha Apple e IBM PC. O Versa- 
Cad é aplicável em qualquer am- 
biente de desenho técnico, tais 
como, mecânico, elétrico, civil, 
arquitetônico ou em artes gráfi- 
cas. A entrada dos dados é feita 
através de joystick, teclado ou 
mesas digitalizadoras e as formas 
de saída são monitor de vídeo, 
impressora gráfica ou plotter. 
Para utilização do VersaCad em 
equipamentos compatíveis com 
Apple é necessária uma configu- 





ração composta pela UCP com 
64 Kbytes de memória RAM e 
dois drives de 5 1/4"; e para os 
compatíveis com IBM PC, UCP 
com 128 K, monitor, adaptador 
gráfico para vídeo, dois drives 
de 5 1/4”, podendo ser usado 
também disco tipo Winchester. 

Na Informática 84 a Comi- 
cro deverá lançar uma série de 
produtos que permitirão a co- 
mercialização do VersaCad de 
forma mais completa. Entre os 
lançamentos previstos estão uma 
placa gráfica e um monitor de 
alta resolução para os micros 
compatíveis com IBM PC, uma 
mesa digitalizadora e um plotter. 
Maiores informações sobre o 
VersaCad podem ser obtidas em 
São Paulo, pelo tel.: (011) 240- 
8610 e no Rio (021) 221-0706 
ou 224-8012. 
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MICRO SISTEMAS, novembro/84 


O Sistemas S. A. Computadores, software house de Uberlândia, está lan- 
çando no mercado dois programas para a linha TRS-80: MANUT — 
TRANS e APURA — TRANS, ambos destinados às empresas da área de 
terraplanagem e transportes. € A Microhouse é uma nova empresa de 
Informática de Brasília e se destina à prestação de serviços contábeis e 
a ministrar cursos de programação. € A sb/Dados oferece cursos sobre 
bancos de dados e planilhas eletrônicas para o público em geral e cursos 
fechados para empresas. Informações pelo tel.: (011) 285-0132, SP. € 
Já está em funcionamento a fábrica de fibras óticas da ABC XTal, em 
Campinas. A produção inicial está prevista para 1 mil e 500 quilômetros 
de fibras por ano. À fibra ótica substitui o cabo de cobre, tradicional- 
mente utilizado em telecomunicações, e é imune a qualquer tipo de in- 
terferência, inclusive magnética. € A Lojicred Universitário de São Pau- 
lo, centro de ensino de computação, está oferecendo diversos cursos na 
área de Informática. Para programadores, operadores, analistas de siste- 
mas e de produção há cursos de VSE/VSAM e CICS/VS. Outros cursos 
são destinados ao aperfeiçoamento da linguagem COBOL e introdução à 
Informática. € A Companhia de Processamento de Dados de São Paulo 
— PRODAM acaba de receber o primeiro dos dois computadores adqui- 
ridos junto ao grupo IBM do Brasil. Trata-se do modelo 4381, que irá 
substituir dois dos três computadores que estão em uso há dez anos na 
PRODAM. Com esse novo sistema, a PRODAM passa a atender secretá- 
rias que antes não atendia, como as de Educação, Saúde e Esportes. € A 
Elétrica Editora Ltda., especialista em livros de eletrônica e computação, 
acaba de lançar “Visicalc — Manual de Referência Rápida”, de Sérgio 
Luiz Leonelli. O livro reúne um material destinado à consulta rápida 
dos comandos, ao estudo da estrutura de formatação de matrizes, entre 
outros. 8 O CIM — Centro de Informática Marília oferece normalmente 
cursos de BASIC em três níveis; programação em linguagem COBOL; 


MICRO SISTEMAS, novembro/84 


programação estruturada e curso de Técnico em Processamento de Da- 
dos. Maiores informações pelo tel.: (0144) 33-1483. O A Citrosuco Pau- 
lista S.A., exportadora de suco de laranja, instalou em sua fábrica novos 
equipamentos de processamento de dados fornecidos pela ABC Bull, 
fabricante de computadores de grande porte. O projeto prevê, futura- 
mente, a instalação de mais 60 terminais se encarregando das tarefas ad- 
ministrativas, financeiras, vendas, produção, controle de tráfego e da 
área citrícola. 8 A empresa mineira Mikro Informática oferece um cur- 
so especial de BASIC Estruturado para Profissionais de Ciências Exatas. 
Além deste, a Mikro ainda ministra cursos de Operação e Programação 
BASIC | e Il e Informática para Jovens. Maiores informações podem ser 
obtidas pelo tel.: (031) 222-3035. € “Usando Linguagem de Máquina”, 
de Mário Schaeffer, é o novo lançamento da Urania Publicações e Asses- 
soria Pedagógica Ltda. O livro destina-se aos usuários de micros compa- 
tíveis com a linha Sinclair, que já conheçam os comandos do Z80 e que 
queiram se aprofundar na utilização das variáveis do sistema, nas sub- 
rotinas da ROM, principalmente nas referentes a cálculos. A obra con- 
tém ainda muitos exemplos, aplicações e programas, comentados linha 
por linha. € O INCRA — Instituto Nacional de Colonização e Reforma 
Agrária criou um Núcleo de Informações Gerenciais, com o objetivo de 
atender às necessidades de processamento de dados no suporte adminis- 
trativo. Para o funcionamento do novo Núcleo, o INCRA adquiriu um 
minicomputador ND 86/E e um micro ND 86/M, ambos da Novadata. 
€ A Embratel comprou o sistema Cetus de rede local para interligar os 
microcomputadores existentes em suas instalações. O sistema é produ- 
zido pela empresa carioca Cetus Informática S.A., com tecnologia total- 
mente nacional. € A Datamicro Informática informa seu novo telefone: 
(021) 511-0395. » 
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Assespro incentiva 
negócios e cooperação 


Espera-se de 1985 que este 
seja o ano de fortalecimento do 
software. A julgar pelo sucesso 
do 5º ENESI (Encontro Anual 
das Empresas de Serviços de In- 
formática), esta hipótese é bas- 
tante viável. 

De 24 a 26 de setembro, no 
Hotel Nacional (Rio de Janei- 
“ro), foram debatidos pelos em- 
presários do setor diversos pro- 
blemas comuns, além de ter si- 
do o encontro palco de intensas 
discussões políticas. Os temas 
discutidos na oportunidade fo- 
ram divididos por módulos que 
abordavam pontos como a Co- 
mercialização; a Consultoria; o 
Bureau e Recursos Humanos e 
Treinamento. 

A preocupação com a reali- 
zação de negócios esteve presen- 
te não só no tema central do 
evento — A Tendência Mundial 
de Negócios no Setor — mas 
também na assinatura de acor- 
dos e programas cooperados e 
no incentivo à uma Bolsa de 
Negócios, que deverá operar em 
esquema contínuo na rede Ci- 
randão, fornecendo informações 
e subsídios necessários ao fecha- 
mento de transações, Paralela- 
mente ao Enesi, foi realizada a 
12 Expo-Soft, com uma mostra 
de programas e sistemas desen- 
volvidos pelas empresas de servi- 
ços. 

A abertura do encontro foi 
marcada com um almoço ofere- 
cido à imprensa, onde foi noti- 
ciada a assinatura de um progra- 
ma técnico-comercial de “inte- 
resse recíproco” da Assespro 
(entidade das empresas de servi- 
ço) com a empresa multinacio- 
nal Burroughs. O presidente do 
5º Enesi, Dr. José Maria Sobri- 
nho, ressaltou ser bastante opor- 
tuno este empreendimento con- 
junto, frisando ser ““inegável"" 
que a Burroughs tem, dos asso- 
ciados da Assespro, um carinho 
muito especial”, pois a maior 
parte dos bureaux são clientes 
da multinacional. 

Carinhos à parte, o fato é 
que esta aproximação vem rea- 
firmar a postura independente 
que tem caracterizado a atua- 
ção da Assespro nos últimos 
anos. A necessidade de empreen- 
dimentos conjuntos foi definida 
pelas diretorias da Assespro e da 
Burroughs como: uma forma de 
trazer benefícios ao usuário fi- 
nal, “aquele que, afinal, paga as 
contas”, frisou Dr. Guy de Ma- 
nuel, Presidente da entidade, e 
“cujos interesses são, geralmen- 
te, pouco visados””, sentenciou o 
Presidente da Burroughs, Henry 
Eicher. 

O programa é constituído de 
onze projetos autônomos que 
tratam de diversos pontos do re- 
lacionamento Burroughs — bu- 
reaux de serviço, entre eles a 
comercialização de sistemas pela 
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Burroughs; a tradução de ma- 
nuais; a atualização técnica; o 
incentivo de cursos e a indica- 
ção de empresas nacionais para 
o desenvolvimento de progra- 
mas-produtos identificados pela 
empresa norte-americana. 


EXPOSIÇÃO DE SOFTWARE 


A mostra de software que 
ocorreu paralelo ao evento, no 
próprio Hotel Nacional, decep- 
cionou um pouco, pois espera- 
va-se um maior número de ex- 
positores. Das empresas presen- 
tes, ressaltamos: 

e A Simicron demonstrou sis- 
temas de edição de textos; con- 
trole de frota de veículos e ope- 
rações de open market. 

e A Fluxo apresentou seu sis- 
tema de gestão de estoques, e a 
empresa conta com outros siste- 
mas já em comercialização, en- 
tre eles o de contabilidade pú- 
blica. 

e A Cincom compareceu com 
sua linha de software de base e 
gerenciamento de Bancos de Da- 
dos. O destaque, porém, fica 
com o PC Contact, que conecta 
os equipamentos das famílias 
IBM 370 e 43XX aos micros 
compatíveis com o PC da IBM. 
e Dez sistemas, todos para 
CP/M, foram apresentados pela 


MiS-Informática, entre eles fo- 
lha de pagamento; open market 
e controle de produção para in- 
dústrias de calçados e confec- 


ções. 

e Trabalhando exclusivamente 
para a área financeira, a ALTA 
Assessoria mostrou vários pro- 
gramas criados pela empresa, to- 
dos para configurações distintas 
da linha Apple. Destacamos o 
Altaplan, para projeções de lu- 
cros e perdas e o Altacaixa, pa- 
ra gerenciamento financeiro de 
pequenas empresas. 

e A Contap mostrou, entre ou- 
tros, sistemas de avaliação finan- 
ceira e de Administração de 
Imóveis. 

Além das empresas de soft- 
ware, três fabricantes de hard- 
ware tiveram participação ativa: 
a Itautec montou seus estandes 
com o objetivo de mostrar seu 
plano de incentivo à criação de 
software nacional para seus 
equipamentos. A Unitron apre- 
sentou sua “seleção de melho- 
res, um grupo de sistemas 
criados para seus equipamentos 
e aprovados pela empresa, e a 
Prológica funcionou, em seu es- 
tande, com o CP-500 em seu no- 
vo gabinete cinza-escuro, dis- 
tribuindo folhetos com a relação 
completa de software para sua 
linha de equipamentos. 


Videotexto para 
os micros da Sysdata 


A Sysdata, fabricante dos micro Júnior e Sysdata Ill, está presente 
na IV Feira Internacional de Informática, apresentando seus equipamen- 
tos ligados ao sistema videotexto. Sérgio Dawi, Gerente de Marketing 
da empresa, afirmou que o usuário do Sysdata Ill e do Júnior já pode se 
inscrever no plano da Telesp. Para isso, basta que tenha um modem para 


fazer a ligação do micro ao telefone. 













Microdigital 





- TKB5 (16 Kb)... 
- TK85 (48 Kb). . 


Prológica 
- CP-300 (48 Kb) 


Unitron 
- AP II (48 Kb)... 








« TKB3I2KD)............ 19,14 ORTN  Elebra 





a CRE2OO (16 KB) a uxseress ev s:6 3190ORTN .MTI41i 





« CP-500 (CPU com 48 Kb) . 
« CP-500 (com 1 drive). ... 
. CP-500 (com 2 drives) ... 





--. 3800RTN "Mx100.. 






- D-8100 (48 Kb)... .... 


Micros e impressoras da Imarés 


As lojas Imarés de São Paulo — Av. dos Imarés, 457, tel.: (011) 61-4049 e 61-0946 e Rua Dr. Re- 
nato Paes de Barros, 34, tel.: (011) 881-0200 — apresentam sua tabela de preços válida até dezembro: 


Impressoras: 
320RTN .Mônica..... 


75ORTN .alice ...... 
Elgin 

64ORTN Lad Faia 

207 ORTN pri 

296 ORTN  Mx-80 





Globus 
120 ORTN 
135 ORTN  -M-100X..... 


=... VOSORTN -P-5O0...... 
«..  B2ORTN .DP-B0...... 


area cem AS 160 ORTN 
54 ORTN . Emília Gráfica. . PER 


RT E 350 ORTN 
ads é arcar 320 ORTN 





é aca Space paca dé 145 ORTN 


do Pregavame a é 150 ORTN 


Micros 
na Ford 


Microcomputadores nacio- 
nais já estão sendo utilizados na 
produção, desenvolvimento e 
controle de qualidade dos moto- 
res da Ford do Brasil. Além de 
dois computadores Burroughs 
de quarta geração, cada um deles 
com 6 Mbytes de memória, a 
produção de motores da Ford 
conta com seis microcomputa- 
dores Unitron, dois micros da 
Cobra e dois Microengenhos, da 
Spectrum. A estes equipamentos 
estão ligados 35 terminais de ví- 
deo e 16 impressoras. 

Já foram implantados mais 
de 20 sistemas para acelerar a 
produção dos motores. Alguns 
desses sistemas são programados 
para historiar problemas e os lo- 
cais onde estes estão ocorrendo; 
ajudar no controle de qualidade; 
avaliar peças e fornecedores; emi- 
tir notas fiscais e duplicatas; 
controlar pedidos e entregas; e 
estudar projetos, custos de pro- 
dução e de vendas. 


Catálogo 
de livros 


O Catálogo Brasileiro de Pu- 
blicações, banco de daços orga- 
nizado pela Livraria Nobel, esta- 
rá disponível no Videotexto a 
partir de 1985, através da Con- 
troldata do Brasil. O Catálogo 
reúne 46 mil títulos, com cerca 
de 9 mil e 800 autores e 730 edi- 
toras e foi mostrado na 82 Bie- 
nal, realizada em agosto último, 
em São Paulo. Atualmente ele 
pode ser acessado através de mi- 
croficha, terminal de computa- 
dor, telex ou microcomputador. 





400 ORTN 
480 ORTN 





184 ORTN 
306 ORTN 
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Av. Amolto Azevedo, 108 - Fone: (011) 262-5577 - Telex [011) 34545 
FILIAL RIO DE JANEIRO: 
Praia do Flamengo, 68 - Bloco B - cj. 1519 - Fone: (021) 205-3849 








DIGITLIS 


a. SO Te DT) IPOD 
Peso how Teigs 071 SP 


DIGITUS lança o DIGIPLEX. Um módulo capaz de formar uma rede local de 
dinamismo de um CPD também simplificará o gerenciamento de sua 


Para pequenas e médias empresas, a 
multi-usuários, que além de proporcionar o 


empresa. 
Com vários terminais executando programas específicos, a implantação do DIGIPLEX proporcionará a sua em- 


presa um aumento da produtividade e qualidade, já que a interligação on line dos terminais permitirá que se 
trabalhe com dados e informações atualizadas. 

Ligados ao DIGIPLEX poderão estar até 16 terminais inteligentes, fazendo a contabilidade, controle de estoque, 
vendas e produção, malas diretas, estatísticas ou seja, atendendo a todas as necessidades de sua empresa. 


Revendedores: Aracagá (075) 224 7776 223 1310 Baumari (011) Brasília (061) 242 6344 248 5º 
225 3305 775 6739 Campinas (0192) 37 6372 Curitiba (041) 2321750 2431731 (037) 221 
Pessoa 
2 1.82% 2 1960 316 4966 
(011) 2802322 815 0099 533 47 


223. 5610 


Moore Forne 


Assim acontece 

na ciência, na fi- 

losofia, na enge- 

nharia, nas artes, 

na moda, no dia a 

dia 

Basta uma boa idéia 

E uma boa idéia, que 

se chama Moore, está 

evoluindo sempre. E fican- 

do muito melhor. 

Mais completa 

Agora, além de fabricar todo tipo 

de Impressos para sua empresa, es- 
tá come ndo tudo o que seu 


dor Total para Informática 


computador ne- 
cessita: Supri- 
mentos, Serviços 
especializados e 
Acessórios 
Assim é 
A maior fabricante 
de Formulários Conti 
nuos do mundo — a Moore 
oluiu para o seu FOR- 
DOR T L PARA IN- 
CA. Apenas uma ques 
tão de acompanhar o seu tempo 
ora, chame um representante 
Moore e fique melhor ainda 





HRRRRHAHANHARRHBHHRHEH EH! 
sinclair sinclair sinclair since 


BHRRAHBRAHRASADHAHASAAHARARHEREAAHARRAHRAHRHESHAAAHBBRRAHEHSRHAHHHHAHA! 


1 REM 

o REM & 

+ REM=="===cosp essas 

4 REM 

» REM Luis Rogerio Dupont 
é REM Estancia Velha -— RS 
REM 

8 REri TK Bo 

2 REM 





Muitos usuários de micros pessoais já devem ter passado pe- 
lo problema de ter-que comprar uma fita nova todas as vezes 
que deram ou trocaram um programa com um amigo. Este 
programa vai solucionar este e outros problemas dos usuários 
dos micros da linha Sinclair, com um mínimo de 16 Kb, usan- 
do para isso a função Cofre, que fica reservada na RAM-TOP 
e pode ser utilizada com qualquer programa. 

Esta função permite ao usuário trocar todos os códigos e 
caracteres do seu programa por outros, numa operação alterna- 
da. Assim, se o programa contiver, por exemplo, AA, eles não 
serão codificados em ++, mas sim em + —. Com a função 
Cofre, o usuário dispõe de n voltas, ou seja, digitando-se um 
programa qualquer (tendo previamente carregado a função), 
escolhe-se n X RAND USR 32600 (direita) ou n X RAND 
USR 32650 (esquerda). Após isto, o programa ficará em para- 
fuso, todo ou parcialmente, pois a função fechará o programa 
até onde encontrar a trava que é nº REMP UL Z. Quando o 
programa encontra esta combinação, encerra o chaveamento, 
mas o restante nem sempre poderá ser listado. Pode-se também 
utilizar a função somente para codificar um texto secreto. Para 
isso, basta digitar 1 PRINT “... texto... PUL Z”. 

Para dar início ao programa digite: 


POKE 16388,56 
POKE 16389,127 
NEW 
1 REM (SETENTA CARACTERES QUAISQUER) 


A seguir, entre com o Bloco Assembler com o auxílio do 
Micro Bug ou do Editor Assembler (MS nº 23). Complete o 
programa Cofre em Basic. Depois, grave o programa com RUN. 
Quando aparecer 9/10 digite NEW e pronto. Toda vez que for 
carregar a função não esqueça de antes digitar POKE 16388,56, 
POKE 16389,127 e NEW. Digite ou carregue um programa 
qualquer e acrescente como última linha, ou onde quiser, ex- 
ceto na primeira: (Nº da linha) REM PULZ. 

Digite RAND USR 32600 para a direita e 32650 para a es- 
querda. 

Faça quantas voltas quiser, mas não esqueça: para recuperar 
o programa deve proceder exatamente ao contrário. Se, por 
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exemplo, digitar RAND USR 32600 (direita) e RAND USR 
32600 (direita) pedindo uma listagem, não encontrará mais 
o mesmo programa. Para isso, precisará abrir o cofre, digitando 
RAND USR 32650 (esquerda) e RAND USR 32650 (esquer- 
da). Agora, você poderá pedir nova listagem. Para escolher seus 
códigos secretos, basta escolher um valor X e um Y e digitar: 


POKE 32604,X POKE 32609,Y 
POKE 32654,(256-X) POKE 32659,(256-Y) 


Para inaugurar o programa, empreste uma fita para um ami- 
go com os seus melhores programas, mas em Cofre. A sub-roti- 
na fica em outra fita, ou pode até deixar junto, pois ele, mes- 
mo que já tenha lido essa dica, vai ficar enrolado tentando des- 
cobrir o segredo. . 








DGUBOMTA 








DUR 
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LIA SAIRIA SAIA LA AAA CR ARS A LA CRS DORSO ASAS RCA CARLA SR IRO 


tres BO 


tres 


B0 trs BO trs AD trs 





CERIRLATALRIA CASAR RS RI RCASA CATA CR URSÃO RAGTA CASA SAIA A RA REA CR SR RA RSRS SOR ORDER RO RIAA RC RORCARS RS RIRUR SR SACRA ROSCA CAGE SACRA RUI RCE SECRCRIAÇÃO 





1 REM 
REM 
3 REM= 
4 REM 
à REM do Ribeiro Pe 
é REM Belo Horizonte 
? REM 
E REM BT 400) 


: 
& REM 


A Digitus dotou seu microcomputa- 
dor DGT-100 de uma interface para 
gravador cassete operando à velocidade 
de 2000 bps (bits por segundo). Para se 
valer de sua compatibilidade em softwa- 
re com o TRS-80 e, por conseguinte, 
com o CP-500, D-8000, Naja, JR e 
outros, o DGT-100 emprega um coman- 
do especial (4 $) que, juntamente com 


um particular das conecções ao 
gravador, permite a “leitura de fitas 
gravadas em”,500 bps, dando acesso a 


uma vasta biblioteca de programas dis- 
poníveis no mercado. (Observação: nos 
primeiros DGT-H00. lançados, era neces- 
sário usar um circuito externo ao com- 
putador e os programas utilitários 
SY8500 e BAS500 numa operação 
muito trabalhosa.) 

Por outro lado, muitos usuários do 
DGT-100 gostariam que seus programas 
pudessem ser lidos por outros micros da 
família TRS-80. O fabricante, no 
entanto, só resolveu parcialmente o 
problema, oferecendo um programa 
chamado CONVBAS que possibilita a 
gravação de programas BASIC à veloci- 
dade de 500 bps. Por isso, escrevi o 
utilitário CNVSYS para gravar progra- 
mas em linguagem de máquina (SYS- 
TEM) em 500 bps. 


GRAVANDO EM FITA CASSETE 


Antes de descrever o programa 
CNVSYS, acho interessante fazer algu- 
mas considerações sobre a operação da 
interface de cassete do DGT-100. Os 
sinais digitais (bits) são transformados 
em pulsos de áudio para que possam ser 
gravados em fita cassete. O artigo For- 
mato de gravação em cassete, de autoria 
de Daniel Augusto Martins (MICRO 
SISTEMAS número 21, junho de 1983), 
mostra como são codificados os bits O e 
1 e como é a estrutura de um programa 
gravado. 
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a Neto 
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O DGT-100 utiliza a porta de E/S 
255 (FFH) para interfacear o gravador. 
Enviando uma sequência adequada de 
bytes a esta porta, através da instrução 
OUT do Z80, pode-se obter o efeito 
desejado. Os bits usados são: O e 1 (para 
controle do sinal de saída) e 2 (para 
comando do motor do gravador). O bit 
3 é empregado para controle do formato 
de vídeo e os demais não são utilizados. 

Assim, alternando-se o estado do par 
de bits O e 1 entre 01 e 10 obtém-se, na 
saída MIC, um sinal de áudio, enquanto 
mantendo-se ambos os bits em zero, 
corta-se o sinal de saída. Quando o bit 2 
vale 1,0 motor do gravador é ligado. 


A ROTINA CNVSYS 


A rotina CNVSYS está listada em 
Assembler e vem acompanhada do 
código de máquina correspondente. Para 
evitar reservar espaço no topo da memó- 
ria (resposta ao PROTEGER?), resol- 
vi colocar o código na parte inferior da 
RAM (abaixo do programa BASIC), 
ajustando, convenientemente, os pará- 
metros início do BASIC (endereço 
40A4H) e início da tabela de variáveis 
simples (endereço 40F9H). 

À rotina CNVSYS requer quatro in- 
formações: título do programa, endereço 
inicial, endereço final e endereço de en- 
trada, fornecidos com o comando SAVE 
que, normalmente, não é empregado em 
sistemas cassete. A sintaxe adotada é: 


SAVE TIT, INIC, FIM, ENTR 


onde: 
- TIT — nome do programa (até seis 
caractergs); 


. INIC *- endereço inicial hexadecimal 
(até quatro caracteres); 
- FIM — endereço final em hexadecimal 
(até quatro caracteres); 


. ENTR — endereço de entrada em 
hexadecimal (até quatro caracteres). 

Para obter detalhes sobre a utilização 
de comandos especiais em sistemas 
cassete, sugiro consultar o artigo Coman- 
dando o relógio eo gravador no CP-500, 
de Maurício Baduy, MICRO SISTEMAS 
número 18, março de 1983. 

Creio que os comentários apresenta- 
dos junto à listagem servem para esclare- 
cer O funcionamento do programa que 
pode, em linhas gerais, ser dividido nos 
seguintes trechos: 

- linhas 580 a 1080: conversão dos três 
endereços fornecidos pelo comando 
SAVE para binário e armazenamento na 
pilha (stack); 

- linhas 1090 a 1920: gravação do pro- 
grama byte a byte; o título fornecido é 
transferido para a fita e o número de 
blocos, o número de bytes, os bytes de 
verificação (check-bytes) e o endereço 
inicial de cada um são calculados e 
gravados juntamente com a codificação 
do programa que é lida na memória; . 

- linhas 1970 a 2300: sub-rotina GRSOO, 
obtida do programa CONVBAS da 
Digitus (esta sub-rotina recebe um byte 
no acumulador, examina-o bit a bit e 
envia o sinal de áudio correspondente à 
saída MICI); 

- linhas 2340 a 2440: mensagem de erro 
que aparece na tela nos seguintes casos: 
endereço com caráter não hexadecimal, 
endereço com mais de quatro caracteres 
ou endereço final menor que o inicial. 


COMO USAR O CNVSYS 


Para utilizar a rotina CNVSYS você 
deve entrar com o programa Assembler 
e montá-lo usando um editor Assembler. 
Depois de gravar a versão em código de 
máquina, basta carregá-la com o coman- 
do SYSTEM do BASIC ou R do DIG- 
BUG. Feito isso, o comando SAVE 
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estará à 'sãa disposição, conforme des- 
crito anteriormente. 

Se o programa em linguagem de 
máquina que você pretende gravar 
começa abaixo do endereço 442DH, 
você terá que alterar a posição do 


00400 
00410 
00120 
00130 
00140 
00150 


Escrito por 
Versao 1.0 


00170 
00180 
00190 
00200 
Do210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 


sintaxes 


onde: 


FIM: 


por exemplo: 


gramas BASIC. Nao 


00340 
00320 
00330 
00340 
00350 
00360 
00370 
00380 ; 
00390 BASIC  EQU 
00400 SAIBIT EQU 
00440 DISPL EQU 33H 
00420 LIGA EQU 
00430 DESLIG EQU 
00440 POSBSC EQU 
00450 


5 
00460 ; Modificacao dos parametros do BASIC 


00470 ; 
00480 oRG 
00490 DEFW 
00500 ORG 
0ost0 DEFW 
00520 ORG 
00530 DEFW 
00540 
00550 
00560 
00570 ORG 
2AE640 00580 CNUSYS LD 
ES 00590 PUSH HL 
D7 DOS00 PRXCAR RST 10H 
FEZC 00610 cr [Ru 
20F8 00620 JR 
0600 006430 LD 8,0 
DE00 00640 LD c,o 
110000 00650 LD 
D7 00660 L RST 10H 
2835 00470 JR 
FEOO 00680 cr o 
2831 00690 JR 
FE2C 00700 cr 
2820 007140 JR 


Rotina CNUSYS 


Fran 
DA1L244 
FE3A 
380€ 
FE41 
DAÍZ44 
FE47 
D21244 
D607 
D630 00820 sus "ge 
cs 00830 PUSH BC 
0604 DOB40 LO B,4 
07 00850 RLCA 
10FD 00860 DJNZ 
0604 00870 LD B,4 
07 nosso RLCA 
25 CBÍa vosso RL E 
cB12 00900 RL D 
10F9 DO940 DJNZ 
00920 POP BC 
00930 LD A,3 
00940 cr c 
00950 JR 
00960 GUARDA DE 
00970 B 


nnza0 cr ae 
00740 JP 
00750 cr 
00760 JR 
00770 cr a 
00780 JP 
00790 cr 
00800 JP 
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DEDE DDD 


; Este programa permite ao DGT-100 gravar programas em 
00160 ; linguagem dk maquina (SYSTEM), na velocidade de 500 
: bps, mediante o uso do comando SAVE, com a seguinte 


SAVE TITULO, INICIO, FIM, ENTRADA 
TITULO: nome do programa (ate” 6 caracteres) 
INICIO: endereco inicial em hexadecimal 
endereco final em hexadecimal 
ENTRADA: endereco de entrada em hexadecimal 

SAVE PROGR, 7000, ZADE, 71AB 


Este programa ocupa espaco da RAM logo abaixo dos pro- 


endereco 442DH, voce deve alterar o endereco de ini- 
cio para o topo da RAM (passo 570), cancelar os pas- 
sos 480-510 e proteger espaco suficiente da memoria. 


, 

00300 ; Caso o programa SYSTEM a ser gravado comece abaixo do 
F 
; 
, 
MR EO 
$ Definicao das rotinas da ROM utilizadas pelo CNUSYS 


1A19H 
221H 


211H 
1F8H 
40E6H 


40A4H 
FINAL 
40F9H 
FINAL+2 
41A1H 
CNvsYs 


42E9H 
HL, (POSBSC) 


NZ, PRXCAR 


DE,O 
Z, GUARDA 


Z, GUARDA 


Z, GUARDA 
oc 00720 INC c 


C,ERRO 
Res 
C,CONT 
C, ERRO 
"Fra 
NC, ERRO 
00840 sus "A? 


MLTPL 


RODA 


NC, LEHEX 


CNVSYS para o topo da memória 
(modificar a linha 570 e cancelar as 
linhas 480 a 510). Neste caso, antes 
de carregar a rotina, você deverá respon- 
der à pergunta PROTEGER? com o 
número adequado. 


E finalmente, se você não dispõe de 
um editor Assembler, pode entrar com o 
código-objeto diretamente na memória 
com o auxílio do DIGBUG. Atenção, 
pois a rotina não é relocalizável. 





Aqui estão os passos necessários para 
que você possa localizar um programa 
SYSTEM na memória do micro: 

- Carregue CNVSYS versão objeto 
(com SYSTEM ou R1 do DIGBUG); 

« Encha a memória, a partir de 442DH, 
com FFH (no DIGBUG, F FF 442D 
FFFF para 48kb ou F FF 442D 
7FFF para 16 kb); 

- Carregue o programa a ser gravado 
(SYSTEM ou R1); 

- Examine a memória, a partir de 
442DH, e anote os endereços onde os 
FF desaparecem (início) e reaparecem 
(fim). Use o comando D do DIGBUG 
da seguinte forma: D 442D FFFF 
para 48 kb ou D 442D 7FFF para 

16 kb; 

- O endereço de origem (ponto de 
entrada) pode ser obtido diretamente 
se o programa for carregado com R1. 
Caso você utilize o SYSTEM ou mesmo 
tenha esquecido de anotar no R1,o 
ponto de entrada pode ser obtido a 
partir das posições 40DFH (byte 
menos significativo) e 40E0H (byte 
mais significativo), utilizando o 
DIGBUG da seguinte forma: 

D 40DF 40E0. 


CNvsYS 
Jose" Ribeiro Pena Neto 
Abril 1983 


necessita, pois, de area protegida. 











sInício do progr. BASIC 





;Início tabela variaveis 
ssimples 

;Endereco de salto do 

; SAVE 


























;Ir ao início do comando 
;SAVE 
;Saltar titulo 


;Zerar contador argum. 
;Zerar contador digitos 
;Zerar endereco 

sler caracter 

;Se dois pontos 


; 00H 
sou vigula, guardar 


;Incrementar contador 
rCoaversan hexa-binario 





























[1 [1 
O PROCESSADOR 
DE TEXTO 








19d 
A-B-C UM PROGRAMA QUE: 


L | COMPATÍVEL COM A LINHA IBM-PC 


;Multiplicar por 46 








L JESCREVE E IMPRIME EM PORTUGUÊS 


;Transferir para DE 











FÁCIL DE APRENDER 





Modas AS RESPOSTAS ACIMA 
E MUITAS OUTRAS 








; Terminou argumento? 
;Nao. Ler outro caracter 
;Sim. Guardar argumento 
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LIVROS DE INFORMATICA 


IMPORTADOS 
01 — Apple Graphucs Games — Coleta F 
02 — Guide To Using Lotus 1.2.3 — Baras . 
03 — The Creative TAS - BO - Mazur . 
04 — The Apple Program Factory — Sumert . 
05 — Using dBase !l — Townsend ... 


08 — Making the Most ot Your ZX-81-Hartneil 
09 — Machine Language Programming Made Simple For Your 
Sinciair & Timex TS1000 — Meigreen 


* Guido To CP. Lives 
12 — Kide & The Apple — . 
13- Serro aii AN Spina Spina — 
T. Demarco ; 


V- Fieai Managers use Personal Computers 
Wordstar) 


19 — Enhancing Your Apple Il — Lancaster - 

20 — Programming the Apple II in Basic — 

21 — Intermediate — Levei Apple Il Handbook — Heiserman . 

z- —fregramenios Tiga and Fachaiques tor The Aprio H and 
He-Campbeil. 


23 — Advanced dBase s Guide 
24 — Foundations ot Programming With Pascal — 
25 — write Your Own Apple Games — Anstis 


NACIONAIS 
nto de Banco 


26 — dB/1l Sistema Reiacional p/Gerenciame: 
CP/M Assembies — 3 Volume 


de Dados — 


Avançado), 
27 — CPIM Guia do Usuário — Hogan 
28 — Jogos e Programas em Basic — Azinhais 


— Casthewits. . 
o — Manifesto — Presente e Futuro da Informática — James 


o Programas Umas em Basic p/Sistemas Compatíveis com o 
TRSBO - Pocte .... 
64 — Introdução sos Microcomputadores. Vol. 1 — Osborne 


Vol O — Osbome . 


TO — Inerocução Mostra 4 Computação (com muito humer) 


n” Topa paro Pieemesoncaio de Uindo (Tio Soro Co 
seção — Exercícios da compresnalo — Silos, abreviações 
e glossário de termos usuais em PD) Galante. . .., 

72 - Elaboração Análise e Racionalização de Formulários — 


Pedrosa. 

73 — Programação com Basic (376 problemas resolvidos 29 
programas completos) Gottiried .... e 

74 Mieroprocestadores e Mirocomputadores Hardware e 
Softmare — Toca. . 5 

75 — Microprocessador Z-80, Vot. 2 — Cypriano . 

76 — Microprocessador 2-80, Vol. 1 — Cypriano . 

77 — Processamento Imerativo: a Linguagem de Programação — 
APL — Zimmermann... 

78 — Microcomputadores e Mimicalculadoras — Seu Uso em 
Ciências e Engenharia — Clóudio . 

78 — Introdução à Ciência da Computação — Guimardes . 

80 — Fundamentos de Processamento de Dados — Reis 

81 - Programação Cobol — Bastos 


es 

Aplicações do Computador na Medicina — Kember 

Dironário Integrado de Informárica Ingiês/Português/Ingtes 
Galvão 

Introdução à Arquitetura e Organização de Computadores 

Lonn 

Micro Processadores de 16 Bus — Titus 

totrodução a Setemas de Bancos de Dados - Date 





GRAVANDO EM 500 BPS 


ERES RES GE SS A O SS A E 


caívIa 


00980 
00990 
01000 
ososo 
otozo 
01030 
D1040 
01050 
01060 
01070 
01080 
01090 
01100 
oss10 
01120 
01130 
01140 
01150 
01160 
01170 
D1180 
01190 
01200 
os210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
D1400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
DI480 
01490 
01500 
01510 
01520 
01530 
D1540 
01550 
01560 
01570 
01580 
01590 
D1600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
D1680 
01490 
01700 
01710 
01720 
01730 
04740 
01750 
01760 
01770 
01780 
01790 
01800 
os8s10 
01820 
01830 
01840 
01850 
01860 
04870 
01880 
01890 
D1900 
oíi910 
01920 
01930 


a,2 
B 

C, GRAVA 
HL 

10H 
Z,LEARG 
10H 

NZ, ERRO 
LEARG 
a, 
LIGA 


a 
B,A 
GR500 
GRSINC 
A, 0ASH 
6R500 
a, 'u” 
68500 
ar 


FIMTIT 


SEER 
E! 
EER 


2 
É o 


Rº"R 


ad ds Ri 


D »DONAaD POUZDO 
á "CBê 


bd É SEP? ROP22029208R 


sLeu 3 argumentos? 
Sim. Gravar. 


;Proximo caracter 
se" virgula? 

;Nao. Houve erro 

Ler proximo argumento 
;Gravacao do programa 
;Ligar o gravador 


;6ravar o cabecalho 


;Gravar indicador progra- 
;ma SYSTEM 


sRecuperar endereco SAVE 


sPular SAVE 
sLer titulo 
; Terminou titulo? 


sSim. 
sBravar titulo 


;Calcular num caracteres 
faltaram para 6 


;e preencher com espacos 


sTerminar titulo 


Obter endereco inicial 
ze final 


al menor? 
Houve erro. 





sE=num de bytes ult bloco 
sD=num de blocos 

sUltimo bloco? 

sSim. Gravar E bytes 
;Nao. Gravar 256 bytes 


;Zerar check byte 
;Sravar endereco inicial 
;do bloco 

sAtualizar check byte 


;Gravar bytes do texto 


sAtualizar check byte 


;Gravar check byte 


sUltimo bloco? 
;Sim. Terminar 

;Nao. Gravar indicador 
;de Fim de bloco 
;Decrementar cont blocos 


;Gravar proximo bloco 
;Gravar indicador final 
;de programa 

;Obter endereco entrada 
se grava-lo 


sDesligar o gravador 


sVoltar ao BASIC 
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as12 
sas 
4416 
4419 
assa 
441C 
assF 
4422 
4423 
4425 
4429 
4428 
a2E9 
20000 
29059 


ATCON 
BASIC 
CNVSY 
cont 


corss3 
cBoz 
3008 
cor4s43 
oo 
20F3 
Fí 

Di 

ci 

EL 

co 
DSBD 
10FE 
18F2 
2101FC 
co2102 
0612 
10FE 
2102FC 
cD2102 


TOTAL 
TEXT 


T 43E6 
1A19 
S 42E9 
s31A 


CONTGR 437F 


DESLI 
DISPL 


6 osF8 
0033 
s37A 
“412 
4419 
sa73 
4428 
4305 


4346 
438E 
4346 
“392 
43E 
a3rs 
43EE 
4331 
4274 
4279 
0211 
43F0 
43FC 
4406 
440F 
431F 
4425 
43DC 
4367 
40E6 
42ED 
4324 
0221 
43c0 


D1940 
01950 
01960 
01970 
D1980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02:80 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
e2280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
ERRORS 


; Subrotina que grava o byte contido no acumulador em 
bps- (Obtida do programa CONVBAS da Digitus). 


3 500 


LOOP 4 


PUSH 

PUSH 

PUSH 

PUSH 

LD 

LO 

CALL 

RLC 

sr 

CALL 

DEC c 
JR NZ,OTRBIT 
Por ar 
Por DE 
Por BC 
Por me 


B,08DH 
Loop1 

JR ATCONT 

LD HL,OFCOLH 

CALL SAIBIT 

Lo B,12H 

DJINZ LOOP2 

LD HL, OFCOZH 

CALL SAIBIT 

LD B,12H 

DJNZ Loop3 

DEC L 

DEC HL 

CALL SAIBIT 

LD B,85H 

DJNZ Loops 

RET 


Mensagem de erro 


RRO 


NSGER 


FINAL 


CALL  DESLIG 
EI 

LD HL, NSGER 
LO A,XHL) 
cr o 

JP Z,BASIC 
CALL  DISPL 
INC HL 

SR ESCR 
DEFN “ERRO 
DEFU | OODAH 
DEFYU | 0000H 
END CNVSYS 


AREA BYTES LEFT 


02070 
00390 
00580 
00820 
01420 
D0430 
00410 
01400 
02340 
02370 
01350 
02450 
01970 


oioso 
01510 
01670 
01540 
01140 
02170 
02140 
Dos60 
00640 
00660 
00420 


02200 


02290 
00850 


02030 
D1290 
00440 
005400 
vosso 
00400 


02160 
01920 
D0530 
00760 
01340 
01900 
02400 
Disto 
00740 
02420 
01310 
00490 
01140 
01580 
D1890 
01000 
01820 
01720 
01520 
01150 
02030 
02050 
00670 
01040 
00950 
01400 
02150 
02200 
02240 
02290 
vosso 
02360 
02080 
01330 
oosso 
D0620 
D0910 
02180 
04770 


02390 
02460 


02340 


00780 00800 01070 01480 


00510 


;Suardar os registros 


;C= contador de bits 
:D= byte a ser gravado 
Gravar o clock 








;Decresentar o contador 
;Passar ao prox. byte 
;Recuperar os registros 





; Terminou gravacao byte 
avacao de zero 
sespaco vazio 





;Gravacao um 
;Sai nível 1 


intervalo 
;Sai nivel 2 


sintervalo 
sZera nivel saida 


;Sai nivel zero 
sEspaco vazio 


sDesliga o gravador 


sLe mensagem 
sTerminou? 

,Si Voltar ao BASIC 
;Nao. Escrever na tela 





; Indicador para o BASIC 


014170 04190 01320 01400 01430 01550 
01620 01680 04740 01790 01840 01870 
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PUBLICAÇÕES PARA COMPUTADORES 


Você não pode deixar de possuir 
os seguintes livros: 
MICROKIT 

LINHO SINCLOIR-TES2, 33, 85, 5200 E GUTROS 


curso de basic 


és 


CURSO DE BASIC - VOL] Cr$ Li 309,04 
Teoria, exemplos e exercícios resolvidos, 
explanados es 18 aulas, oferecendo uma abor- 
doges simples e direta E um livro didático. 
CORSO DE BASIE - POLZ Cr$ 11 350,02 
avançado 


Complesenta o livro Curso de Basic - Voli 
e ensina como desproteger progranas da linha 
Sinclair; copiar fitas e como usar o Hi-speed 
no TKBS e CP208. 


LINHO APPLE - COMPATÍVEIS CSM NPPLE/TEZO08 


CARLOS ALBERTO C ABREU 


para pequena empresa 


77 programas 
para linha 
apple 


77 PROGRAMAS PARA LINHA APPLE Cr$ 15 329,09 
fitraves de JOGOS e PROGRAMAS EDUCATIVOS 
você será induzido a pensar, resolver proble- 
mos, e tomar conhecimento de como poderá 
usar bem o computador, divertindo-se! 


PROGRAMAS COMERCIAIS DA LINHA APPLE 

Para Pequena-Eapresa Cr$ 17 388,80 
Troz a listagem completa dos programas 

como: Mala-direta, Controle de estoque e 

Contas a receber e a pagar. Foca seu pedido 


i 











Envie us cheque nominal para ATI Editora Ltda. | 
Av. Presidente Nilson, 165 grupo 1216/1216 | 








ERORER TESE CROSS OR CR CRC RIE RSS CR CR SECRI RIR SUA SADO 
sinclair sinclair sinclair sinc. 
AEE ASMESLES ASS BSS RES ERES RS GR SR RR A A 








levam até você toda sua estrutura de Marketing. Conheça 


CR 200 





os CP300 e CP5OO aliados ao alto desempenho da Impressora 


P500 e na configuração exata do seu problema. 
O objetivo deste jogo é levar o móvel O até a direita da tela, Todas as instruções necessárias estão na própria listagem. 
atravessando uma das pontes. Seria fácil se o micro não tentas- Ao digitá-la, utilize SHIFT H em modo gráfico na linha 20 e, 
se impedir a travessia colocando obstáculos para evitar a passa- na linha 57, use os caracteres em modo gráfico (inverso). Cui- 
gem. Uma dica para você conseguir dar o drible é jogar o móvel | dado apenas com o ponto e vírgula da linha 220 — sem ele o 
para a direita o mais rápido possível. programa não roda. 


À Filcres oferece aos seus usuários assistência técnica 


“PERDEU” 


= Tem 


3: CGRNHOU O 


Meme pe ca pu 
dio foto teto 


EM ERANCO 


HICRO TENTARAM 

UEAR DERRUBANDO” 
TES! 

UTILIZE 


Sms E 


a 
o 








e Para a linha Sinclair, um compilador Forth para você usar (e abusar) 
em sua programação, e mais o espetacular jogo Space Ghost 


e Arquivos no NEWDOS/80 e tudo sobre o novo DOSPlus 3.5 Ro 
+ Análise de Indicadores econômicos, Investimentos e Poupança O PERCA a 
CT 


e E mais a cobertura da Feira Internacional de Informática 








EHBARSCESAARA RADAR 


apple apple apple apple apple a 





RCC RCA CRS REIS RIR RACE RIR OR ERAS ODOR ATA ROSCA SA SS CAIR SAIA CRIA O RCA CRSA CRS R ERC RR ORO RO REA RS RARAS ROSAS RSA SANGRAR RSS ERRA SRCRIRIÃO 


pa 


REM 


REM == 


REM CATradlogo DE 


DISCOS 





RE 


[E RAS 


& REM Portn Alegre — RS 
7 REM 

8 RE Ar dl 

& REn 


Todo aquele que programa há algum 
tempo já deve ter sentido vontade de 
introduzir no catálogo de seus disquetes 
uma marca, rótulo ou cabeçalho que sir- 
va para identificar o conteúdo, a data e, 
principalmente, a autoria dos programas 
nele contidos. 

O DOS do Apple, porém, não apre- 
senta nenhuma facilidade neste sentido. 
O máximo que ele nos permite fazer é, 
após inicializar o disco, gravar alguns 
programas inconsistentes do tipo 1 REM, 
cujos nomes, no catálogo, indiquem os 
dados que queremos transmitir. 

Esta técnica, entretanto, apresenta 
tantas deficiências que desestimulam o 
uso da rotulação. Podemos citar alguns 
exemplos: os programas gravados no 
disco ocupam um espaço (no mínimo, 
dois setores) que poderia ser usado por 
dados reais; dois arquivos não podem ter 
nomes iguais e estes nomes precisam 
obedecer à sintaxe que o DOS aceita, 
sem símbolos ou caracteres de pontua- 
ção; o rótulo não possui a mínima segu- 
rança e pode ser E por um sim- 
ples comando DELETE 

Pensando nisso, percebi o quanto se- 
ria útil criar um programa rotulador que 
superasse estas dificuldades, e aqui apre- 
sento os resultados. 


O PROGRAMA 


O problema se resumia em encontrar 
uma maneira de colocar dados no catá- 
logo do disquete sem passar por um co- 
mando SAVE. Para isso, usei uma co- 
nhecida rotina em linguagem de máqui- 
na, a qual, por sua vez, acessa outras ro- 
tinas do próprio DOS que, com o auxí- 
lio de algumas linhas BASIC, carrega pa- 
ra a memória do micro os dados conti- 
dos na trilha 17 (a trilha 17 é usada pelo 
DOS 33 para guardar o diretório. 
Assim, esta rotina carrega a trilhã, 


32 


REM Mario malebonte 


AIST 


HIMEX: 16384: GOSUS BIO 

CLERR : DIM R$(50):88 = CMS (7) 

HOME : POXE 34,5 

PRINT “4”; SPC( 8); "ALTERAÇÃO DO CATALOGO”; SPC( 9);"4º 

PRINT “) INTRODUZA AS LINHAS EM ORDEM” 

PRINT “)PARA ENCERRAR DIGITE “FIN”: PRINT 

FOR O = 1 TO 50 

PRINT O; SPC( O « 10);)"; 

GOSUB 640 

100 IF XS = "FIN" THEN 120 

NO PRINT SACO) = XS: NEXT O 

120 N5=0-1 

130 PRINT : PRINT B$;85;")ALTERAR ALGUMA LINHA? “;2 GET XS: PRINT XS 
10 IF ASC(XS) € ) 83 THEM 170 

150 INPUT “QUAL O NUMERO? “;0: PRINT O; SPCX O « 10);7)7;3 GOSUB 640 
180 AS(O) = XS: GOTO 130 

170 FOR O = TONS: IF LEN CASCO) = 30 THEN 190 

180 FOR N= LEN CASCO) TO 30:RS(O) = ASCO) +”; NEXT 

190 NEXT 

200 POKE 34,0: HOME 

210 FORN= TONS: PRINT TS 000 “:ASCD: IF MN /22= INT (N/ 22) 
THEN PRINT “)CR PARA CONTINUAR —;3 GET XS: HOME 

NET 

PRINT “FIM (CR) “;: GET XS 

NOME : PRINT “)COLOQUE O DISCO A SER ALTERADO NO” 

PRINT “DRIVE 1 E TECLE (CR) “;5 GET XS 

PRINT = PRINT = PRINT ATENCAO - ESTA OPERAÇÃO DESTRUIRA” 
PRINT “TODA À INFORMACAO CONTIDA NO DISQUETE” 

PRINT = PRINT “CONTINUAR? (S=SIN) “53 GET XS2 IF XS 4) "S” THEM END 
PRINT = PRINT : PRINT SPCC 15);"INICLALIZANDO” 

PRINT : PRINT SPC 15);"DELETANDO” 

PRINT 2 PRINT SPC( 15);" TRANSFERINDO DADOS” 

VTRB 9: MTAB 14: PRINT "=)" 

PRINT CHRS (4)"INIT KO 

VTAB 11z HTAB 14: PRINT “=)" 


g383582388 
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PRINT CHR$ (4)"DELETE XXX” 
GOSUB 440 


PRINT * 


PRINT * 3)ENCERRAR” 


ON VAL (X5) GOTO 240,10, 430 


2$8332338383 


POKE 47092,1: GOSUB 570 
450 CN =1 

460 FORO=14 TOOSTEP -1 
470 RD = 16659 + (256 3 0) 
480 FORN=0TO6 

490 JF CH) NS THEN 560 
500 X = AD + (M$ 35) 
510 X=X+10 

520 POKE X,35: POKE 
530 FORM=1 TO: 
540 CN = CN+1 

550 NEXT : NEXT 


X+1,15: 
X=X+] 


PRINT : PRINT B$;85;8S; SPCC 15);7% FIN 3º 

PRINT : PRINT “TECLE: 1)FAZER OUTRO DISCO IGUAL” 
ZYESCREVER NOVO CATALOGO” 

PRINT “)OPCRO: “;: GET XS: IF XS (“IT OR XS ) “3º THEN 410 


HOME : PRINT : PRINT CHR$ (4)"CATALOG”: END 


X=X+2: POXE X,8: POKE X + 31,0: POKE X + 22,0 
2 POKE X, ASC ( NIOS (ASCCN),M,1)) + 128: NEXT K 


560 VTAB 13: HTAB 14: PRINT "=)": PORE 47092,2 


POKE 47083,0 
FOR SE = 0 TO 15 


5% 
580 
59 
600 


s 


NEXT : RETURN 
PRINT SPC( 14);"— ERRO — 


LE =2048="":KL=0 
HTAB KL + 4: PRINT *.”; 
HTBB KL + 4 
GET YSIAC = ASC (18) 


ESs88 


POKE 47082,1: POKE 47084,17: POKE 47088,18 
POKE 47085,SE: POKE 47089,SE + 64 
CALL 769: IF PEEK (768) € ) O THEN 630 


: GOTO 370 
FOR N = 4 TO 33: PRINT *.";: NEXT 


AC=8ORAC=32 GOTO 700 


740 X5 = XS + YSKL=KL+] 
750 GOTO 460 
760 HTRB 4 + KL: PRINT ".”; 


TO IFKLC =1 THENXS=""IKL = 0: GOTO 640 


Mo KL=K-1 
790 XS = LEFTS (XS,KL) 
800 GOTO 660 


810 DATA 32,227,3,32,217,3,176,6,169,0,141,0,3,96,169,1,208,248 
820 FOR X=0 TO 17: READ Y: POKE X + 769,13 MEXT = RETURN 


Catálogo de Discos 


grava sobre ela os dados arbitrários in- 
troduzidos pelo operador e manda-a de 
volta ao disco. 


Ao ser rodado, o programa move pa- 
ra a memória os armazenados 
nas últimas linhas, solicitando em segui- 
da a introdução do texto que formará o 
cabeçalho do disquete, o qual deverá ter 
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entre uma e SO linhas. Esta entrada é 
feita através de uma rotina de edição de 
strings situada nas linhas 640 a 800. Es- 
ta rotina permite que seja escrita uma li- 
nha de até 30 caracteres, possuindo al- 
gumas vantagens sobre o comando 
INPUT no que se refere à limitação do 
comprimento dos dados digitados e à 
operação das setas de correção. 





s ooo 
IE See = : 
É Go * DISQUETE CRINOO FOR naSIO = 
5 S96 * n- CESQUIE. + 
|E 990 + z 
s 000 s Em BALGERAS EM UM SISTEMA | 
5 699 = DE - 
E 550 + 2! 
5 905 * conteuoo: a| 
s ooo 8 ROGRANAS ESTATISTICOS 1—- s, 
E 00 2 :| 
is oc0 s moOTA: T s - 
(3 999 & Contipos neste DISCO SAD a 
5 399 à DE PROERIEDRDE roR E 
5 ooo Or in SER AUTORIZAÇÃO & 
IS S90 » ETOTALMENTE PROISIDA :| 
IE 880 = : 
E Doo temsmeseneesacaeeeeeeeeaceesas| 
s voo | 
A=SSs mEDIAS En GERAL 1 | 
AISos mEDIAS En GERAL 2 
AuSTa Aria TSE LANCIR | 
ARO!2 CORRELACAO LINE | 
oz4 GER OS ve onoos | | 
Os DADOS CORRELACHO 





As linhas que compõem o texto po- 
dem ser escritas e editadas à vontade, to- 
mando-se apenas O cuidado de encerrá- 
las com um CR. Ao final de cada uma, o 
computador solicitará a seguinte, encer- 
rando a edição quando receber uma li- 
nha contendo a palavra FIM. A seguir, 
perguntará se todas elas foram introdu- 
zidas corretamente e, em caso negati- 
vo, pedirá o número da linha a ser al- 
terada. 


Assim que tudo estiver certo, o pro- 
grama apresentará na tela uma simula- 
ção do que será o catálogo do disquete 
e aguardará o acionamento de alguma 
tecla, iniciando a rotina de gravação pro- 
priamente dita. Será pedida a inserção 
no drive 1 do disco a ser rotulado e em 
seguida a confirmação de que a opera- 
ção deve ser realizada (o operador será 

advertido quanto ao fato de que todo o 
conteúdo original do disquete será des- 
truído). 

Após a confirmação, o sistema pas- 
sará a indicar na tela as operações que 
realiza: inicializa o disquete, deleta a si 
mesmo do diretório, processa as infor- 
mações introduzidas e transfere-as para 
o disco. Por fim, o programa pergunta se 
o operador deseja rotular outros disque- 
tes com o mesmo ou com outro cabeça- 
lho, ou se prefere encerrar a execução, 
caso em que será executado um CATA- 
LOG demonstrativo. 

Este programa permite total flexibi- 
lidade no que diz respeito aos tipos de 
rótulos. Você poderá digitar linhas com- 
postas totalmente por asteriscos, linhas 
em branco ou mesmo duplicadas, sem 
qualquer problema. Veja na figura 1 
um exemplo de catálogo. 

Outra vantagem é que o cabeçalho 
introduzido não pode ser removido por 
DELETE e, assim, só programadores 
com muito conhecimento das rotinas do 
DOS (uma minoria) conseguiriam mudá- 
lo sem destruir os programas gravados. 


Ressalto, por fim, que o programa 
descrito é bastante restritivo quanto ao 
hardware, pois os endereços utilizados 
só são válidos para os compatíveis com 
o Apple que tenham 48 Kb ou mais de 
memória e trabalhem com o DOS33. 


3 
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Este programa foi feito originalmente 
para processar a contabilidade de uma 
pequena criação de galinhas poedeiras 
num TK82-C. A idéia básica, contudo, 
foi transformar os dados de receita e des- 
pesa de cruzeiros em ORTN (Obrigações 
Reajustáveis do Tesouro Nacional), para 
o usuário ter uma idéia precisa dos seus 
gastos e lucros, ao longo de um período, 
em valores atualizados. Com isso, modi- 
ficando-se algumas especificações, essa 
aplicação poderá ser útil também para 
outras atividades. 

O programa toma por base a variação 
mensal do valor das ORTN, armazenan- 
do os dados (receitas e despesas), não 
em cruzeiros, mas em ORTN. Assim, pa- 
ra se ter uma comparação entre o que 
se gastou e o que se faturou ao longo de 
um determinado período, soma-se os da- 
dos (convertidos em ORTN) e multipli- 
ca-se pelo valor atual da ORTN. 

Ao dar-se entrada nos dados, o pro- 
grama pede a ORTN do mês para que 
possa fazer a conversão. Ao rodar, apare- 
Ce o menu (linhas 1800 a 2110). Deve-se 
escolher a opção INI, a fim de que o lo- 
te seja inicializado, indo o processamen- 
to até a linha 2120, onde são zeradas as 
variáveis. Em seguida é perguntado a 
data de aquisição do primeiro lote, a 
quantidade de pintos adquiridos, o mon- 
tante em dinheiro e o valor da ORTN na 
época. 

A opção seguinte é ACR (acrescentã 
dados), onde o usuário deverá informar 
a data de aquisição de pintos; quanto eles 
custaram, despesas com a ração; quanti- 
dade da ração em quilos; despesas diver- 
sas, como vacinas e mão-de-obra; quan- 
tidade e valor dos ovos vendidos; quan- 
tidade e valor das aves vendidas; quanti- 
dade, se houver, de aves descartadas; e o 
valor da ORTN do mês. 
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Albuquerque 


Na opção TAB (obtém tabela), sur- 
gem no vídeo todos os dados existentes 
na memória. Na EST (obtém estatísticas), 
depois do programa perguntar o valor 
atual da ORTN e o valor atual unitário 
da ave, calcula e fornece os seguintes re- 
sultados: número atual de aves; número 
de aves vendidas; número de aves descar- 
tadas; consumo de ração por quilo; quan- 
tidade de ovos vendidos por dúzias; qui- 
los de ração consumidos por dúzia de 
ovos; despesas com ração; despesas diver- 
sas e total de despesas; receita dos ovos 


100 PRINT AT 11,0, "GRANJA SANTA 
THEREZINHA 

110 PRINT CONTROLE DA PRODUC 
RO DE ovos 

115 PAUSE 150 


PRINT ET 

NEXT q 

RETURN 

FOR k=0 TO 31 
PRINT AT 21,K;“=" 
NEXT k 

RETURN 





SOSUB 1060 
PRINT DATA DE AQUISIC 


INPUT Ks 
PRINT KS 
PRINT 


INPUT 
PRINT 
PRINT 


INI“ THEN GOTO 1320 
ao 


PINTOS ADQUIRIDOS 


ooo Ó ur + 
9 Snsros 


cês o 
5 INPUT VALOR 
3 PRINT VALOR 
PRINT GORTN e 
INPUT 
PRINT Sêns oi 
LET VAL = VALOR? oi 
PRINT AT 28, B;"0S DADOS EST 
Ro ConsETOs (5 N) ? 


* THEN Sano 1165 
ONT+1 TO 





cLs 
«PRINT “DATA 2º"; " 

INPUT D$(I) 

PRINT D$(1I) 

PRINT “PINTOS ADQUIRIDOS 


INPUT L 


5 
IF L$="" THEN LET. ALI/=0 











sinclair sinclair sinc] 


VEREDAS AREA 


e aves vendidas e total de receitas; valor 
do estoque atual; lucro, considerando-o 
como a soma da receita com o estoque, 
subtraídas as despesas; e custo por dúzia. 
As demais opções do menu são GRA 
(grava em cassete); INS (obtém instru- 
ções); que mostra o menu; e PAR (pára 
o programa). Só uma observação: na li- 
nha 2125 do programa, foi escolhido o 
valor 20 para a variável U. Para outro 
número de meses, deve-se dimensionar 
convenientemente os arrays. 


IF L$ 


PRINT A(I' 
IF A(I)=0 THEN GOTO 1375 
CR$ ?' 


JT) 
JiI),v.00 
“pacão (CAs) EL 


R(T) 

"CR$ C5R(II,". O 

“SRERO RG) > 
T K(I 

KT) 

"DESP. DIV. ? 

D(I) 


R$ “;DII);".DOr 
VOS VENDIDOS ? 


THEN LET A(I) =VAL 


“e 
“o 
INPUT Y$ 
IF Yy$= 
IF Y$ 


PRINT X(I) 
IF X(1)=0 THEN GOTO 1500 
BRINT “CRS 
INPUT ZÍI 
CR$ “sZU «00 
AUÊs vEnordas'S 


THEN LET V(I)=0 
THEN LET U(I)=VAL 


* THEN LET Xx(I)=0 
“ THEN LET X(T) =VAL 


IF PS 


PRINT UíI) 
IF VíI 
PRINT 
INPUT B(I) 

PRINT “CR$ “;BIIJ;".00 
PRINT “AVES dESCnaTÁDAS 2 


INPUT IS 
IF I$= 
IF I8:> 


PRINT MíI1 

PRINT “ORTN 7 *; 

INPUT O(I) 

PRINT O(I! 

PRINT “ESTRO CORRETOS OS DA 





THEN GOTO 1560 


THEN LET M(I)=0 
THEN LET M(I) =UAL 
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P(S/N) 
PAUSE 420200 
IF INKEY$="Nº THEN 
PRINT MAIS DADOS 
PAUSE á2020 
LET CONT NT+1 
IF INKEY Nº THEN GOTO 


NEXT I 
PRINT AT 20,0,"0 


GOSUB 1110 








1760 y 
5 FORAM APAGADOS * 
1770 PAUSE 200 
1790 GOTO 1330 
1500 REM SUBROTINA 
1810 CLS 

1820 PRINT TAB 10, 
15830 GOSUB 1250 
1860 PRINT 

IA LOTE” 

1890 PRINT , ACR" 
TA DADOS" 

ua PRINT TAB“ 


BE 

dao PRINT , EST" 
TATISTICAS 

Nano PRINT Gra 


1550 PRINT e (o 
STRUCOES" 

2000 PRINT 

ROGRAMA' 

2010 PRINT T +58; "DIGITE INSTR 
UCAO 


INSTRUCOES 

INSTRUCOES 

INI"! = INIC 
ACRESCEN 
OBTEM TA 
OBTEM ES 
GRAVA EM 
OBTEM IN 
PARA O P 


DWG RL 
VOSLMSU 
9969699959 


erre uu 


OGODDOVDDODOrOvOr 
afete tetefetefetete Te! 





Dn 
“ 
= 
q 


TABELA DE PRO 


o" 
GOSUB 1062 
PRINT “AQUIS. 


PRINT “CRS “; 


I=i TO CONT 
io $ 


:K8,R PINT 


VALOR, “ORTN 


“DATA. 
PINTOS ABSUTRIDOS 


5 j 
DESPESA C/RACRO (CR$ 


MO (KG) (I 
ESAS D IJuERóAS (CR 





VENDIDOS. 


NEXT 

PRINT “ar eo, 

GOSUE 1118 
R 


DIGITE INSTR 


PRINT 


INPUT OU 
PRINT ou 
PRINT VALOR UNIT. AVE ? 


VALOR ATUAL DA ORTN 


INPUT 
.. 


n9996699599 666 99 


Granja 
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anmnmnm 





Jd 


Pu fa Po fu Po ro Pa o fo fo fo raro 








=NAV+UU 


CE-l102 
PRINT 
RO++++++ 
PRINT “ 





CONT 
PRINT 
PRINT 


NAV=A+AD-U-AM 


1041) 


++++++CONTROLE DE PR 
“GKS:CATD 





Nº ATUAL DE AVES 


PRINT “Nº AVES VENDIDAS 


PRINT 





KG 
2865 PRINT 
2570 PRINT 
NT (X/12)); "DL 
) +12), "UD" 





5 DESCARTADAS 
RACAO (KG) 


VENDIDOS “5 (1 
E ", (X-INT (x/12 


2875 IE NOT x THEN GOTO 2590 


2876 PRINT 


2580 PRINT “xG RACAO PUZER pi 


INT ((KG/X! +125CE) /CE 
2885 PRINT AT 21,0 
NUAR 

2890 PRINT 


“CONT P/CONTI 
(VALORES EM CR$ REAJ 


usTaADOS CONFORME EVOLUCARO MENSAL 
D 
(IDESR+0U+ 


(INT 





RACRO 
CUCUAL+D) + 


CINT 


2910 PRINT “DESP, 

(32-LEN x$):X$ 
2915 LET x TR$ (INT 
BL) +O0U+CE) 


(INT 


ovos 
R$ (INT 


REC. AVES 

xs 
Esaéé IF NOT B AND NOT 
NT “TOTAL RECEITAS 
oo 


2946 IF NOT B AND NOT 

o as60 

2947 LET X$=STR$S (INT 

OU) ZCE 

2950 PRINT 
(32-LEN xs 

2955 LET xg= Tas INT 

1 /CE) 

2SS6 PRINT 

2960 PRINT “ESTOQUE 

E (32-LEN x$/;x$ 

2965 PRINT 


NOM DM 


“; TA 


DIVERSAS “sr 


LIDESR+D+U 
Tal DESPESAS :“;TA 
(Z+CE+OU) 


“TAB 


(B+CE+OU) 


STA 
THEN PRI 
o. 


THEN GoT 


(IT+B) +CE+ 


FROTA: RECEITAS Hai 


(NAU SCE UU 


“TA 


2970 LET L=(7+B) +OU+NAV+VU- (DESR 
(L+CE) ZCE) 
“TA 


+D+UAL) *OU 
2971 LET X8= (INT 
2980 PRINT 
S2-LEN 
ês6i PRINT 


vm 

OMIDADIO 

co 0000 
No 


PRINT 
S2-LEN X$) ,X$ 
PRINT AT 20,0 


“Div = no 
om 


mma DO 


1118 


Rs 


991906-6 





12/X) 
TR$ (INT 


THEN GOTO 3000 
DESR+D+VAL-Z-B) +OU+ 


(CD+CE) “(CE 


CUSTO /DUZIA 
"DIGITE INSTR 


T 


HEN GOTO <005 



































Seu micro 

merece 

Assistência 
Técnica 
ASSIST. 


Evocê merece a tranquilidade de contar 
com a mais eficiente equipe técnica do ad 
treinada nas fábricas, e recomendada 
Petrobrás, Furnas, Light e Bolsa de V; 
AASSIST oferece também diversas o 
para contratos anuais de assistência técni- 
ca, que garantem o máximo ao seu micro. 

E sem custar mais por isto. 

Osmicros Speei , Prológica, Digitus 
e muitos outros, além de vídeo-games e com- 
patibilização de periféricos, têm na ASSIST 
Uma assistência técnica aprovada pelos pró- 
prios fabricantes. Além disto, você tem total 
assistência aos micros importados: Sinclair, 
TRS-80, Apple e PC/IBM. 

Se você tem um micro e quer o máximo em 
assistência técnica, não pense duas vezes: 
pense ASSIST. 

ASSIST: A máxima solução para seu micro. 


EISSIST 


Assessoria de Sistemas e Engenharia Ltda 





INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMÁTICA 


CURSOS 
LINHA IBM (Apoio Marcodata) 
— VSE — VM/CMS — VSAM 
— DL/1- COBOL: TÉCNICAS E 
OTIMIZAÇÃO 


MICROINFORMÁTICA 
BASIC — ASSEMBLER — 
LOGO — CP/M — VISICALC 
dBASE Il — WORDSTAR 


PASCAL 


FORMAÇÃO DE PROGRAMADORES 
DURAÇÃO: 9 MESES 


CPD-ORT: IBM 4341 COM TERMINAIS 
LABORATÓRIO DE MICROS 


TREINAMENTO IN HOUSE 


SOLICITE INFORMAÇÕES E 
FOLHETOS EXPLICATIVOS 


RUA DONA MARIANA. 213 — BOTAFOGO 
TEL.: 286-7842 





RIAA SACRA RSRSRS URCA CESAR SRSRS GRI CA RSRSRS 
trs 80 trs 80 trs 80 trs 80 trs 
RSRSRS LR CACASAS URSS CR CR CARS RSRS ROSCA SACAR RSRS RIR CS CASE CEGA ISOS OS RCR CASAR CRISIS OA OSCAR CASAIS ROSCA CA CR CASRS RO RISOS IA CA CRS RSRS RIA ARO 


REM 

REM DIRETORIO Eri ETIGUETAS 
REM === coesa te peer en er ci 
REM 

REM Julio ântonio Rodrigues 

REM Brasilia — DF 

REM 

REM CP 500 

REM 


OONO On» 


Emitir etiquetas com o diretório dos 
disquetes, a fim de auxiliar o manuseio 
dos mesmos, é o que faz este programa 
denominado DIR/BAS. Além de impri- 
mir etiquetas no sistema TRSDOS, o 
programa também registra os dados de 
outros sistemas, via teclado. 





PROGRAMA: DIR/BAS 
FUNCAO = IMPRIME DIRETORIO EM ETIQUETA AUTO-COLANTE 
"“AUTOR: JULIO ANTONIO RODRIGUES-TEL 273-3218 BRASILIA-DF 
do EMVEPAMENTO: MICROS DA LINHA TRS-BO C/SIST.TRSDOS/D0S500 
IMPRESSORA COM SUPERSCRIPT (LINHA EPSON) 


CLEAR 2000:DIM AS(50):X=0 
CLS:PRINT:PRINT" IDENTIFICAÇÃO DO DISQUETE :“;zINPUT NDS 

100 PRINT:PRINTIPRINT”O DISQUETE E” COMPATIVEL COM TRSDOS/DOSSOO 
? «S/N; 

140 YS=INKEYSZIF YS="" THEN 140 ELSE IF YS="S” THEN 120 ELSE IF 
YS="Nº THEN 360 ELSE 100 

120 CLS:PRINT:PRINTCDRIVE ONDE SE ENCONTRA O DISQUETE A SER ETIG 
UETADDO 7"; 

130 YS=INKEYS:IF Y$="" THEN 130 ELSE IF Y$="X” THEN 360 ELSE Y=V 
AL(YS) 

140 IF Y=1 THEN CHD“D:17:GOTO 150 ELSE IF Y=0 THEN CHD“D:0":G0TO 
150 ELSE 120 

450 PRINTSPRINTO “.“ 
=. 

160 FOR 1=15360 TO 16383 
170 IF PEEX(I))64 AND PEEKCI)(91 THEN GOSUB 300:NEXT ELSE IF PEE 
K(1)=42 THEN 180 ELSE NEXT 

180 CLS:60TO 200 

190 PRINT:PRINTPREPARE A IMPRESSORA PARA OPERAR“ZIFOR J=4 TO 500 
NEXT 

200 STX=PEEK(14312) AND 240:IF STX()48 THEN 190 





sBssBesEs 


AGORA É MAIS FÁCIL ASSINAR 


CLASSIFICANDO “. 


sistlicco SA 


210 LPRINT CHR$(27)"9";CHR$(27)"A” CHR$(129);CHR$(27)"6";CHRS(27 
JTECILPRINT NOS 

220 LPRINT CHR$(27)"F“;CHR$(27)"H";CHRSC1S)ILPRINTILPRINTILPRINT 
FLPRINT STRINGS(55,"-") 


Para sua maior comodidade, 
a ATI Editora Ltda. 


coloca à sua disposição 230 LPRINT CHR$(27)"A” CHR$(134);CHR$(27)"S” CHRSCO)INT=X-12CMD” 
. O ,NX,ASC1) 
os seguintes endereços 240 FOR I=1 TO X STEP 4z12=1+1213=12+12:14=13+4 
de seus representantes autorizados: 250 LPRINT ASCID;TAB(14)ASC(IZ); TAB(ZEIASCI3); TAB(AZIASCT4) NEXT 
255 FOR I=1 TO 38-X STEP 4:LPRINT:NEXT 
260 CLS:PRINT:PRINTIPRINT“IMPRIMIR NOVAMENTE 7 € S/N)” 
270 YS=INKEYS:IF Y$="" THEN 270 ELSE IF Y$="S” THEN 210 
280 CLS:PRINT:PRINTIPRINTCTEM MAIS DISQUETE A ETIQUETAR 7 < S/N 
RIO DE JANEIRO 
- 4 pr 
ATi Editora L = 290 YS=INKEYSZIF YS="" THEN 290 ELSE IF Y$="S” THEN RUN ELSE CLS 
Av. Presidente Wilson, 165 — zEND 
Ga. 1210 310 TF PEEKCI)=32 THEN 340 
CEP 20030 — Teis.: (021) 320 AS=AS+CHRSC(PEEKCI)) 
262-5259 330 I=1+126G0T0 310 
340 AS(X)=AS:X=X+1:RETURN 
350 END 
Ã 360 CLS:PRINT“ENTRE COM OS NOMES DOS PROGRAMAS: “:PRINTIPRINTOPA 
SÃO PAULO RA ENCERRAR DIGITE CFIM)"ZPRINTIFOR I=1 TO SO 
ATI Editora Ltda. 370 INPUT"PROGRAMA :7;AS 
iveira Dias, 153 380 IF LEFTS(AS,3)="FIM” THEN X=I:G0TO 180 
Rua Ol á 390 ASCI)=ASIAS="= 
CEP 01433 — Teis.: (011) 200 NEXT 
853-3800 S0000 SAVE“DIR/BAS” 
PORTO ALEGRE DIR/BAS 
Aurora Assessoria Empresarial 
Ltda. . k . 
Rua Uruguai, 35 sala — 622 É possível, ainda, registrar o nome do A única exigência do programa é o 


disquete a fim de facilitar ainda mais a uso de uma impressora que tenha o re- 
identificação. curso do superscript, (linha Epson). 


CEP 90000 — Tel.: (0512) 26-0839 








PROFISSIONAL DE GRANDE QUALIFICAÇÃO 


MICROCOMPUTADOR 
MTS-IV 


MAQUIS TECNOLOGIA E SISTEMAS LTDA [| 


Rio de Janeiro São Paulo 

Av Barão de Tefé 7 GR 501/08 Av dos Imarés 999 
Telefone 263 3330 Telefone 543 3511 

TWX (021) 30354 TWX (011) 21299 





Baseado em microprocessador Z80-A e com 
industrialização aprovada pela SEI, o MTS-IV é um 
microcomputador para sofisticadas aplicações. 

Ele está capacitado para assumir a carga de trabalho 
de uma pequena/média empresa e aplicações 
científicas ou comerciais em empresas de grande porte, 
quando em processamento distribuido. 


e 128 kbytes 
* Acopla 4 discos flexíveis de 5 1/4” e 4 discos de 8” 
e Discos rígidos de 5, 10e 15 Mbytes 
* Impressora de 100 cps à 600 LPM 
e a 
Sp 
“mainframe” 


e Possibilidade de ligação em rede local. 


Seu sistema operacional é DOS-MB, compatível com 
CP/M, apresentando planilha eletrônica, editor de 
textos, banco de dados, contabilidade, contas a pagar, 
folha de pagamento, etc. 

A MAQUIS garante este profissional compacto, 

perfeitamente adequado para processamento de 

ie endossa do ipepiacais: AN 
exigidas nas aplicações de uso profissional. 





Revendedor para o Rio de Janeiro: 
CLAPPY — Av. Rio Branco nº 12. 
Telefones: 253-3395 e 2367175 RJ 
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Desenvolvido para micros da linha 
Sinclair, este programa é um aplicativo 
que se presta bem ao ensino da Fluvio- 
logia, podendo ser utilizado nos cursos 
de Engenharia Civil, Agronomia, Enge- 
nharia Florestal, Licenciatura em Ciên- 
cias Agrícolas, Engenharia Sanitária e 
outros que apliquem os conhecimentos 
básicos de medição de descargas e nível 
da água em cursos fluviais. 


O programa oferece ainda noções de 
como se medem o nível da água (N.A.) 
e a vazão (Q) em pequenos rios; dica pa- 
ra se operar com logaritmos de base 10; 
rotina para se obter os somatórios de 
X,Y,X*Y e os seus quadrados; técnicas 
de formatação usando vírgulas, PRINT 
AT, PRINT TAB e strings; rotina para se 
ajustar pares de valores X e Y a uma re- 
ta (através de logaritmos) e calcular a 
precisão do ajustamento; e sugestões para 
que os próprios leitores otimizem o pro- 
grama, inclusive pelo uso do Assembler. 


MEDINDO A VAZÃO 


Se medirmos a vazão de um curso 
d'água numa determinada seção trans- 
versal e repetirmos a operação mais tar- 
de, no mesmo local, mas para outro ní- 
vel d'água (quando o rio estiver mais 
cheio, por exemplo), veremos que as va- 
zões também serão diferentes. E fácil de 
concluir que, se nada de extraordinário 
ocorrer naquele trecho do rio, a cada ní- 
vel d'água (N.A.), corresponde uma úni- 
ca vazão (Q). 


Este fato, aparentemente óbvio, é de 
extrema importância em Hidrologia, a 
ciência que trata do estudo da água na 
natureza. Assim, se plotarmos num sis- 
tema de eixos ortogonais os dados de 
N.A. versus Q e ajustarmos os pontos 
decorrentes de cada par de medição, te- 
remos a Curva Chave. Cada Curva Chave 
requer uma dezena ou mais de pontos 
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do Couto 


Rd 


para o seu traçado e só representa o re- 
gime do rio naquele trecho. 

O que de extraordinário poderia 
ocorrer na natureza para modificar essa 
estreita relação bi-unívoca entre nível 
d'água e vazão? Somente com a altera- 
ção do regime do rio, pelo seu represa- 
mento ou pela alteração da geometria da 
calha, através da retirada continuada de 
areia para a construção civil. Em qual- 
quer das duas situações, para a mesma 
secção transversal do rio, teríamos duas 
ou mais Curvas Chave, dependendo das 
transformações sofridas pelo leito do rio 
no trecho e intervalo de tempo conside- 
rados. 

Dados de leituras de níveis d'água e 
de medições de vazãó realizadas na mai- 
oria dos rios brasileiros são encontrados 
em órgãos públicos como o DNAEE, 
CPRM, FURNAS, CEMIG, CESP, LIGHT 
e outros. O leitor também pode improvi- 
sar níveis d'água com réguas graduadas 
de madeira e medir vazões de forma ex- 
pedita, multiplicando a área molhada da 
seção transversal do rio pela velocidade 
média do escoamento, cronometrando o 
tempo que um objeto flutuante leva pa- 
ra percorrer um certo trecho retilíneo. 


A EQUAÇÃO 
A Curva Chave pode ser representada 


matematicamente por uma equação do 
tipo: 


Q = k.(Hta)? 
onde 
e Q = vazão do curso d'água (m?/s); 
e H= nível d'água (m); 
e n = coeficiente angular da reta; 
e K = coeficiente linear da reta; 
ea = constante. 


Mas, por que n e K referem-se a retas. 
quando estamos falando de curva ? É 
que a Curva Chave deve se transformar 


CR 














numa reta, quando trabalhamos com os 
logaritmos dos N.A. e de Q (figura 1). 
Ocorre que, mesmo com logaritmos isso 
não acontece, a menos que, por tentati- 
vas, somarmos ou subtrairmos ao N.A. 
um valor constante a. Procedendo deste 
modo, para cada valor de a, teremos 
uma curva com determinada concavida- 
de. Com a variação desse parâmetro, a 
concavidade vai se alterando, até trans- 
formar-se numa reta. É o ponto em que 
a curva atinge o maior valor do Coefi- 
ciente de Correlação (R), toma o nome 
de Curva Chave e fornece os parâmetros 
K e n da equação acima. 

uma tarefa muito cansativa, até 
quando são usadas calculadoras progra- 
máveis tipo HP ou Texas. Para o micro, 
isso é fácil, embora não menos trabalho- 
so. Basta escolhermos os limites de va- 
riação da constante a, introduzirmos as 
leituras de N.A. e Q e esperar os resulta- 
dos. 

Para cada valor de a que vai sendo 
acrescido ou subtraído do N.A., manti- 
das as vazões constantes, aparece tabe- 
lado no monitor os valores correspon- 
dentes de K, ne R. O valor R, sempre 
menor que a unidade, representa o Coe- 
ficiente de Correlação, ou seja, o grau de 
aderência (ou coincidência) dos pontos 
à reta calculada. Quanto maior for este 
valor, mais perfeito será o ajustamento 
da reta aos pontos que lhe dão origem. 

Concluída a tabela, tomamos os valo- 
resde H, K,a e n da linha corresponden- 
te ao maior valor de R e os substituimos 
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na equação. Obtida a Equação da Curva 
Chave, só nos resta testar a sua autenti- 
cidade, atribuindo ao nível d'água (H) 
os valores considerados — e mesmo ou- 
tros, mais elevados —, obtendo-se as res- 
pectivas vazões. 


NA SALA DE AULA 


Este programa pode também ser uti- 
lizado em sala de aula, conforme o 
exemplo seguinte. Uma vez tendo sido 
fornecido aos alunos os conceitos bási- 
cos de Fluviologia (estudo dos rios), de 
Hidrometria (medição de N.A. e Q) e da 
própria Curva Chave, poderá ser apre- 
sentado um exercício de fixação, que 
poderá ter o seguinte enunciado: 

Uma cheia excepcional ocorreu num 
certo rio. A descarga de pico surgiu du- 
rante a noite e não foi possível medi-la. 
A leitura máxima de N.A. registrada foi 
de 4,42 m. Medidas anteriores correla- 
cionando N.A. versus descarga são dis- 
poníveis e dadas a seguir: 


N.A.(m) Q (m/s) N.A.(m) Q (m3/8) 
0,52 2,8 1,82 37,1 
0,60 4,1 2,04 42,7 
0,76 7,6 2.10 45,6 
1,06 13,9 2,38 53,8 
1,22 18,7 2,67 68,2 
1,30 21,8 2,72 69,2 
1,55 26,7 2,81 70,8 
1,60 28,2 3,18 773 
47 30,3 


REM CURVA CHAVE 
PRINT 


INPUT N 
s9"N= “;N 


PRINT 
CLS 
DIM 
DIM 
DIM 
REM 
LET K=.4342 
PRINT “INTR 
FOR M=1 TO N 
INPUT Yt(M 
PRINT M;“ 
NEXT M 
CLS 
PRINT 
FOR M=1 TO N 
INPUT XtiMi 
PRINT M;* 
NEXT nm 
CLs 
PRINT 
REM LG DAS 
FOR M=1 TON 
LET U=LN ix (MI) 
LET X(M) =UizK 
NEXT M 


Xin 
YtNI 
ZiN+ 


4452 


AT 12,15; 


Reu AJUSTE DAS RETAS 
ae TAB 12, 


PRINT TRE 2; 
E ;TRB 29:º 


T TO 2 Erep .1 


Equação da Curva Chave 
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“GY UM) 


"INTRODUZA AS VAZOES * 


“5X (M) 


“AGUARDE 
VAZÕES 


Pede-se: 

a) determinar os parâmetros K, na e a 
respectiva da Curva Chave; 

b) calcular uma estimativa da descarga 
de cheia ocorrida. 

Anexo a este problema, fornece-se ao 
aluno uma cópia do programa e dos re- 
sultados que aparecerão no monitor. 
Roda-se o programa, com os dados do 
problema e comentam-se os resultados, 
na medida em que forem sendo tabela- 
dos. Estabelecida a Equação da Curva 
Chave, pede-se a alguns alunos que a tes- 
tem, usando os valores de N.A. do enun- 
ciado. Finalizando a aula, fornece-se a 
cada qual uma folha de papel di-log e 
pede-se que tracem a curva para a=0 e a 
Curva Chave. 

Graficamente, o valor de K é obtido 
através de um artifício, lendo-o direta- 
mente no eixo horizontal (das vazões) 
para H —a=1,já quelog 1=0, ou seja: 


log Q = log K + n.log (H - a) 
log Q = log K 
Q=K 
OTIMIZAÇÃO 


Para os leitores interessados em con- 
tribuir com o seu tempo, criatividade e 
conhecimentos em Assembler, sugeri- 


“QUANTAS MEDIDAS 7" 


REM COEF. ANGULAR, 


COEF.TRANSF.LN EM LG 

DUZA OS N.A.” 
S40 LET R$=5 

550 PRINT TRE 
17;K$1 

S60 NEXT D 


SI;TRE 
07) 


570 PRINT 


RO DA CURUA- CHAVE, 
SEUS PARAME- 


sS80 PRINT 
S90 INPUT 
600 PRINT 
510 PRINT 
DA REGUA 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
70 PRINT 


PRINT dg: 


CôM O SINAL) 


QUALGUER PARÁ 
ESPONDENTE” 


mos uma série de modificações possíveis 
e desejáveis neste programa. Elas torna- 
rão mais rápida a resposta do micro nos 
cálculos da Curva Chave, além de outras 
vantagens estéticas e operativas. As su- 
gestões são as seguintes: 


a) usar a rotina para DATA/READ/ 
RESTORE publicada em Micro Siste- 
mas nº 25, pág. 8; 

b) suprimir a linha 70, substituindo-a 
por uma rotina que armazene os va- 
lores de Y — D na própria matriz da 
linha 60; 

c) substituir a linha 90 por LET K = 
1/2.3 onde 2,3 é a base dos logarit- 
mos neperianos; 

d) retirar do laço FOR-NEXT que sub- 
trai a constante do N.A. e calcula os 
somatórios (linhas 310 a 560), a roti- 
na que transforma as vazões em log e 
calcula os somatórios de X e de X?; 

e) transformar essas duas rotinas para 
linguagem de máquina (Assembler), 
por serem as mais demoradas, 

f) elaborar rotina que guarde na memó- 
ria do micro os valores de D, A, N e 
K quando R for máximo, a fim de 
testar a Equação da Curva Chave ao 
final do programa, sem termos de 
reintroduzir estes parâmetros, 

£) apresentar a equação da Curva Chave 
logo após a tabela, com os seus pará- 
metros definitivos e sob a forma (li- 
teral) em que foi enunciada no artigo. 


S3+Z (MJ 
S4+Z2(M) +72 (M) 
SS+X (M) £Z2 (M) 


LINEAR E 


D++1-E-A)1 


) 
;TARB 9: Ag 
:TAB 2S;R$5( T 


TO 


'PARA APLICAR A EQUAL 
INTRODUZA D5 


EF. LINEAR K= 


'"REDUCRO NA LEITURA 
A=" 


COEF.ANGULAR N= 


“INTRODUZA UM N.h. 
BETER A VAZAO CORR 


5H 
“VAZRO= 

EH+R) EEN 
TRE (06) 
TO 45 





PAUSE EQ 


CLS 
soro 


era 
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HHBRHHSRHHHEHHHAAHASHEHHA HA: 
trs 80 trs BO trs 80 trs 80 trs 


HHRBRHEHAHAAHOHAHAHAHARSAAARAHACRAAHHESRH ERRAR 








í REM 

o REM CUSTO POR Kit RODADO 
3 REM — — — — — — —— — — — -- 

4 REM 

5 REM Ricardo de Oliveira 

6 REM Boa Esperanca -— MG 

7 REM 

8 REM CP 300 

> REM 


“Saber quanto custa usar um carro é tão importante para 
aquele que utiliza o veículo no trabalho, como para os que o 
reservam apenas ao lazer”. O programa a seguir utiliza uma fór- 
mula elaborada pela REVISTA 4 RODAS, que permite, ao 
usuário, calcular o preço de cada quilômetro rodado de seu 
veículo 

A fórmula é a seguinte: 








Ckm =P -V+T(A+B+G+]J) + L+M 
K K c K 
Estes são os itens 
Ckm = Custo por km rodado 
P = Preço do carro na compra 
V Valorização do carro no período de uso considerado. 
Ex 00, 
K 
T 
ata atual.........l 4 
moi 981 
EME r 
A = Custo anual do seguro. 


OBS.: Se houver outro tipo de seguro, este deverá ser soma- 
do ao seguro obrigatório. 








B = Custo anual de lacração (TRU, placas e certificado — não 
são computados honorários de despachante). 

G = Custo anual de garagem ou estacionamento. Se o usuário 
tiver garagem própria, poderá eliminar esta parcela. 

J = Juros anuais em cruzeiro (% sobre o capital empregado 


na compra do carro). Para os que não desejarem compu- 
tar isso no Ckm, basta eliminar o J da fórmula. 


L = Custo do combustível por litro. 

C = Consumo do combustível, em km/litro. 

M = Despesas de manutenção do carro: revisões, trocas de 
óleo, lavagem e lubrificação completa (por mês), lavagem 
simples (por mês), etc. 

40 


Agora, vamos ver uma aplicação prática: 


VEICULO = Honda CB 400 

P = Cr$ 1.198.000,00 
V = Cr$ 1.062,000,00 
K = 13.000 km 

T = lano 

A = Cr$ 5.600,00 

B = Cr$ 25.000,00 

G = Cr$ 100.000,00 
J = Cr$ 599.000,00 (50% do capital) 
L = Cr$ 672,00 

c = 20 km/litro 

M = Cr$ 80.000,00 


Sendo assim, o resultado (Ckm) é de Cr$ 106,34 por km 
rodado. 


10 REM se» CUSTO POR KM RODADO sem 
20 REM em» RICARDO DE OLIVEIRA - 1984 emu 

30 CLS:PRINTES,CHRSC143); 

40 FOR X=6 TO 1217SET(X,O)ESETCX,46)2NEXT X 
SO FOR Y=5 TO 46:SET(6, Y)SSETCZ, YIZNEXT Y 

60 FOR Y=0 TO 4123SETC120, Y)ZSETIAZI,YIZMEXT Y 


70 PRINTRSOZO, CHR$(143); 

80 FOR X=0 TO 147:SET(X NEXT X 

70 FOR X=10 TO 1272SET( :NEXT X 
100 FOR Y=3 TO 43ºSET(O ET(1,Y)SSET( 126, YITSET(IZ7, YISNEXT 
110 PRINTOSO7, CHR$C(140);9126,CHR$(131); 
120 PRINTB409, “CUSTO POR KM” 

130 PRINT9469, “Ricardo de 01 

140 FOR X=1 TO SOZNEXT:PRINTOSSS, 

150 ES=INKEYSTIF E$S="" THEN 140 ELSE CLS 
160 CLSSPRINTIPRINTIPRINT 

470 INPUT” Qual o preco do carro na compra”;P 

180 INPUT” Quanto foi a valorizacao”;V 

490 INPUT” Qual a quilometragem percorrida no per iodo” ;K 
200 AB=(P-4)/K 

210 CLS:PRINTIPRINTIPRINT 

220 INPUT" Entre com o tempo de uso em anos”;T 

230 AC=1/K 

240 INPUT” Custo anual do Seguro” ;A 
250 PRINT” Custo anual de lacracao - 


“;3FOR f=1 TO SO:NEXT 


TRU, PLACAS & CERTIFICADO. 


260 INPUT” (Nao sao computados honorarios de despachante)” ;8 
2 Custo anual de garagem ou estacionamento” ;6 
bros anuais em CRUZEIROS, sobre” 
o preco do carro na compra”; J 
AD=A+B+G+J 
LS:PRINTIPRINTIPRINT 
* Custo do Combustivel por litror;l 
Consumo do Combustivel em Km/litro”;C 


Despesas de manutencao do veiculo no per iodo”;M 


=64 TO 1 
440 SET(X, 18) :SET(127-X, 18) :NEXT 

420 PRINTO448, Custo"; SPRINT USINGOSSMNEM, HMM. AO; CKN;SPRINTO p 
or tm 

430 FOR x=64 

440 SET(X,2: 

4so FOR X 
460 END 








Custo por km Rodado 
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3 nos detalhes que fazem uma grande impressora. Tudo isso com assistência técnica 
é completa e permanente. Agora, pergunte pro Yoshida se o Brasil atingiu ou não o ní- 


A solução definitiva para os fabricantes de microcomputadores fornecerem seus equipamentos em configuração completa 
As Grafix 80 e 100 são tão avançadas que muita gente ainda duvida que elas sejam feitas aqui.Por um lado, isso é muito bom, porque 
prova que somos capazes de fabricar periféricos tão perfeitos quanto os lá de fora. E, por outro, é muito bom também, porque nos dá 
a trangjilidade de poder ter uma impressora que realiza exatamente o trabalho que a gente precisa. As Grafix 80 e 100 são assim: de 
alta resolução gráfica (120 pontos por polegada); impressão bidirecional com procura lógica; controle de espaçamento entre linhas; 
tabulação horizontal e vertical; espaçamento entre linhas de até 1/216 de polegada; oferecem dezenas de combinações tipográficas; 
imprimem com todos os acentos e sinais da língua portuguesa, em caracteres nos tamanhos normal, comprimido, expandido e com- 
primido expandido; possuem modo de impressão enfatizado para correspondência (Near Letter Quality); e mais uma série de peque- 


CRT 


SCRITTA ELETRÔNICA LTDA. 


TELEX: (011) 25056 - SCTT BR 





vel tecnológico dos países desenvolvidos. Não se preocupe. Ele vai responder que 


sim, em português. Porque ele é tão brasileiro quanto as Grafix. 
RUA HELIÓPOLIS Nº 61/67 SÃO PAULO - CEP 05318 FONES: 260-9659 /831-5177 





aprovada peia SE! 


tada à abcomp 





DE 
Mecanismo pora 
regulagem da Suporte para plonilhos 
inclinação no apoio e manuais podendo 
- vídeo. paro elimina optar-se por sua e 
ae reflexos luminosos fixação do lado direito A 


ou esquerdo 


REF. 13589 Rar. 7262/72 REF. 10766 REF. 6145 REF. 10075 +. 10789 REF. 7262) F E 
Dimensões Dimensões Dimensões Dimensões Dimensões [rita am. rasa! prótese recita 
135em X 89cm X 69em de T2em X 62em X 69%em de 107em X 66cm X 69cm de 6lem X 45em X 69em de 100em X 75em X 69em de tem x B9em X 69em de 72em X 62em X 69%em de 153em X 89em X 69cm de 153em X 89em X 69em de olturo 
alturo altura altura alturo altura im STO olivro Pesa bios ct 
48cm X 63cm de altura 
A MEMPHIS fabrica mesas para todos os tipos de Chame os nossos profissionais para lhe indicar a opção 
computadores e periféricos. Sendo a MEMPHIS pioneira correta. 


NE o 
|DO VIA TELEFONE 
neste tipo de design, garante a estrutura sólida e As mesas LINE WINNER têm a vantagem de chegarem ao AS DS CAGARÁ SUA LIGAÇÃO *FÓRMICA é morcô E ig 
segura das suas mesas, podendo você encontrar designs usuário desmontadas, em embalagens especiais para fora E ETO) registrodo de Cyanomid (O) 
semelhantes, porém jamais com o mesmo padrão de de São Paulo e com instruções de montagem. TOLL 

qualidade. 


Química do Brasil Ltda ” 
Esse sistema permite uma maior segurança do material e 8 00 à 8 PR rt SÃO PAULO: 
grande economia de frete. 0 


(011) aos -es00 
CENTRAL DE VENDAS SÃO PAULO: 


Av. Arnollo Azevedo, KB - Fone: (011) 22-57 - Telax (ON) 34545 
— OEM para revendedores e fabricantes de computadores e periféricos. — 


FILIAL RIO DE JANEIRO: 
Proia do Flamengo, 66 - Bloco B - cj. 1519 - Fone: (021) 2705.3849 












Produzido na Zona Franca de Manaus. 


Vamos colocar todos 
OS pingos nos bits. 


Quem usa computador para controles e decisões 
empresariais, organização de assuntos pessoais, 
trabalhos escolares ou simplesmente para se divertir, 
sempre quer respostas exatas. 

E por saber muito bem disso, a VERBATIM é a 
empresa que mais investe em pesquisa e 
desenvolvimento de produtos para alcançar e manter sua 
posição de liderança em qualidade de mídia magnética flexível - 

e garantir as respostas exatas que você espera. 

A VERBATIM já trouxe para o Brasil o resultado de todos esses 
anos de trabalho. Sua fábrica brasileira está produzindo os disquetes 
de 5 1/4 e de 8 polegadas, os mesmos que lideram as vendas no 
mundo inteiro. 

E se prepara para lançar suas fitas magnéticas que vão trazer 
um novo padrão de qualidade, bem acima das normas tradicionais. 






tiniversal 


Verbatim 


Maior fabricante mundial de disquetes 
Fone: (011) 853.1209 - = jd 


Datalife tem resposta para tudo. 


BRRRRBR SS 
sinclair sinclair sinclair sinc 


GURI ALA LAS RA RUAS OUR RA GOA CR ACRE RUA CRS RUACRS RAR CRS RO RIRS ROSES RO RIR RS RCRLRRCRSR RCA LES RIRCRSRO ROS SRIRCA SR ROR CROSS OR EE EEE CEC RIR CREA 


Pam A 


18% del E ES 





Mota Alves 


Laci 3 
Paulista 





Paraguaçu SP 


TK Bal 





Para que se possa aproveitar melhor as potencialidades dos 
micros da linha Sinclair é necessário que se aprenda a contor- 
nar, certas situações. Resultados inesperados muitas vezes sur- 
preendem o usuário menos avisado fazendo-o perder tempo 
tentando descobrir porque determinada condição parece estar 
sendo desobedecida pelo micro. Este programa tem por objeti- 
vo elucidar este tipo de problema, a partir de um exemplo de- 
talhado. 

Em topografia, é comum o uso de uma régua devidamente 
graduada, denominada Mira Falante, para obtenção das distân- 
cias dos trechos a serem medidos. Os três fios horizontais exis- 
tentes na luneta do Teodolito são projetados na Mira Falante, 
possibilitando as leituras do Fio Inferior (FI), Fio Médio (FM) 


e Fio Superior (FS). Na prática, essas leituras estarão corretas | 


quando a equação FM = (FI + FS)/2 for verdadeira. Essa con- 
dição de igualdade pode ser testada pelo micro que detectará 
leituras erradas provenientes do campo. Para isso, muitos dos 
que empregam micros da linha Sinclair, na solução desse tipo 
de problema, inicialmente, pensariam num trecho de programa 
como o da listagem 1. Entretanto entre os dados de pg que 
serão testados pelo micro alguns surpreenderão o usuário. 
Exemplo: 


dado nº 











1 





Ao rodar o programa e alimentá-lo com o dado número 1, 
obter-se-á a mensagem LEITURA CORRETA. Ao pressionar 
novamente RUN e introduzir o dado número 2, o vídeo exi- 


so 
so 





Listagem 1 
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birá inesperadamente a mensagem ERRO NA LEITURA DA 
MIRA. Como (2,00 + 2,24)/2 = 2,12, a primeira reação do 
usuário será digitar PRINT FMC e ENTER. O resultado obtido 
será de 2,12. Mas, digitando-se PRINT FMC-F (2) e ENTER, 
aparecerá no vídeo 9.3132257E-10, mostrando que o valor cal- 
culado não é igual âquele fornecido ao micro. 

Para que o trecho do programa mencionado torne-se genéri- 
co a todo o conjunto de dados de campo, as linhas 110 e 120 
deverão ser alteradas para: 


110 LET FS=STRS((F(1) 
120 IF VAL F$S=F(2) 


+ F(3) 
THEN GOTO 


)/2) 
150 m 
e 





REFRESQUE AS MEMÓRIAS DE SEU MICRO COM 


MICRO FAN 


= VOCÊ MESMO INSTALA 
EM MENOS DE 
1 MINUTO 















io 


ador & memórias 





* Encaixa direto na CPU — sem furos ou parafusos 
* Aumenta a vida util da fonte 
* Evita as paradas por super: 
* Duas tomadas adicionais p ga 
* Equipado com interruptor luminoso 
* Na cor original da linha Apple 

* Garantido por 60 dias 






) de periféricos 








* Você encontra MICROFAN nas melhores lojas do ramo 


MICRO FAN | 
Cx. Postal 819 - 13100 - Campinas - SP - Fone (0192) 47-1804 


G. 3 MORETTI 





ELG CASA TAL ASA RIA RUA CRS REAR CRISES A DRA RIA RCR SACA RARARA 
apple apple apple apple apple ar 
GERIASATRLA CASA CAS RIRTA LAS RUAS RTAC RSA CRIAR RSRSRS ATACADA RSRSRS A CRS AURA ASA ASR IA GRSA UR TRA RSA CASADA LRSRSRERS AS RSRSRS RACE SORA RAAS SER SSI RAS 






SJouaquim Pe ira de Oliveira 
Brasilia - DF 








MAXX] 


Este programa vai simular um verdadeiro plano nos equipa- 
mentos compatíveis com o Apple, transformando duas fileiras 
de teclas desses micros em teclado musical. 

Na verdade, poderiam até ter sido programados sons para 
todas as teclas, mas, para manter o posicionamento das notas 
em relação aos teclados musicais, foram sonorizadas apenas 17 
teclas (fileiras A a +;e Wa P). 

Apesar de escrito em BASIC, para facilitar o uso em versão 
cassete, o programa é totalmente executado em Assembler, de 
modo a diminuir o tempo entre o acionamento das teclas e a 
respectiva resposta sonora. 


EM BASIC 


Na listagem em BASIC, as linhas 10 e 20 exibem, na tela, 
a correspondência entre as teclas e as notas musicais. No caso 
de duas teclas, a segunda corresponde à mesma nota, uma oi- 
tava acima. 

Nas linhas 30 a 70 estão os códigos, em decimal, das instru- 
ções do programa Assembler. 

Na linha 80 é carregado o programa Assembler, na mesma 
ordem em que os códigos foram escritos, com a instrução 
DATA (linhas 30 a 70). Os códigos são posicionados do ende- 
reço 768 (300 hex) ao 954 (3BA hex), por meio das instruções 
FOR ... NEXT, READ e POKE. Com a instrução CALL 841, o 
programa Assembler é acionado e as teclas estarão sonorizadas. 
Para voltar ao BASIC, basta pressionar a tecla V. 


EM ASSEMBLER 


A execução do programa começa no endereço 349 (841 
dec), com a chamada da sub-rotina FD35, que aguarda o acio- 
namento de tecla, A partir daí, pode-se resumir o “trabalho” 
do programa em: 

1. Verificar qual tecla foi pressionada, através da instrução 
C9 xx, sendo xx o código hexadecimal da tecla (a instrução 
C9 xx é complementada com FO yy, que indica o desvio); 

2. Atribuir um valor ao endereço 6, de acordo com a tecla 
pressionada, para gerar a nota correspondente. O valor zz é cri- 
ado com a instrução A9 zz e é atribuído ao endereço 6 com a 
instrução 8D 06 00, que corresponde ao POKE 6, zz (endere- 
ços 32D a 331); 

3. Atribuir o valor 38 ao endereço 7, para fixar a duração 
da nota (endereços 332 a 336); 

4. Emitir o som correspondente ao valor zz (endereços 337 
a 348), reiniciando no ponto de origem, conforme salto condi- 
cional comandado nos endereços 33D a 340. 

Fora isso, resta lembrar que a duração das notas pode ser al- 
terada modificando-se o valor do endereço 333. Quem quiser 


46 


HOME : VTAB 5: PRINT TAB( 5) 
"A-K ==> DO W-O ==> DO 
*": PRINT : PRINT TAR( 5)"S 
-L ==> RE E-P ==> RER" 
2 PRINT : PRINT TAR( 5)"D-s 


==> MI F ==> FA": PRINT 


PRINT TAB( 5)"T ==> FA& 

G ==> SOL": PRINT : PRINT 
TAB( 5)"Y ==> SOL% H 
==> LA": PRINT : PRINT TAR( 
S)"U ==> LOM J ==> SI 

“vz VTAB 22 

DATA 149,194,76,47,3,169,153, 
76,47,3,169,162,76,47,3,169, 
145,76,47,3,169,128,76,47,3, 
169,114,76,47,3,169,102,76,4 
7,3,169,96,76,47.3 

DATA 169,86,76,47,3,169+76,14 
1,6,0,169,56,141,7,0,173,48, 
192, 136, 208, 4, 198,7, 240,8, 20 
2,208, 246, 1h6,6,76,55,3,32,5 
3,255, 201, 187,240, 221 

DATA 201,193,240,172,201,196, 
240,173,201,197,240,174,201, 
198, 240, 175,201,199,240,176, 
201,200,240,177,201,202,240, 
178,201,203,240,179 

DATA 201,204,240, 180, 201.207, 
240,52,201,208,240,53,201,21 
1,240,54,201,212,240,20,201, 
213,240,21,201,215,240,22,20 
1,217,240,23,201,214,240,3 

DATA 76,73,3,.96,169,137,76,47 
13, 169,108,76,47,3,169,183,7 
6,47,3,169,121,76,47,3.169,9 
1,76,47,3,169,81,76,47,3, 169 
,172,76,47,3 


FOR A = 768 TO 954: READ E: POKE 


A,B: NEXT : CALL 941 





Listagem em BASIC 
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Listagem em Assembler 


fazê-lo, basta modificar o código 56 da linha 40 do programa 
em BASIC (sequência 169, 56, 141,7,0). 

Outro lembrete: as rotinas de som utilizadas nas linhas 337 
a 346, da listagem 2, são as mesmas divulgadas por Rudolf 
Horner Junior, no programa “Rotinas de som e animação grá- 
fica”, publicado em MS nº 27. 


Finalmente, aqui vai um pequeno trecho “escrito em 
Apple”. Experimente executá-lo e descubra qual é a música! 
H-Y-H-Y-H-Y-H 
S-S-D-T-G-H-L-K-U-L-U 
U-H-U-L-U-G-H-L-H-F = 
W-W-W-W-A-W-D-S e 





IRADE 
CENTER O Banco de negócios. 


Em 5 vezes sem juros 


Excepcional desconto à vista 


TEMOS DRIVE E abs 
INTERFACE P/ Tk 2000 GÊaçoS. 
GRAFIX MX 80 E MX 100, 8 “coRÉ 
JÁ VEM COM PLACA e 

P/ RESOLUÇÃO GRÁFICA 


& BRASILTRADE CENTER 


FIRST 

VIDEO 

CASSETE 
ENGLISH COURSE 


e Com 2 fitas de 3.30 hs. de duração, um manual, um 
livro de exercicio e um de texto você e toda a sua 
familia aprenderão a falar inglês, a lingua universal. 

e Produzido a cores pela equipe da TV mais 
importante do Brasil. e Gravado em estúdio e em 
externas mostrando sempre cenas do nosso cotidiano. 
e Preço de lançamento à vista com desconto 


Faça-nos uma visita em qualquer um 
dos nossos endereços: 
INFORMAÇÕES: TEL.: 259-1 299 
COMPUTER CAMPING 
BTC VIAGENS E TURISMO 


Av. Epitácio Pessoa, 280 (Esq. Vic. Pirajá) — IPANEMA Tel.: (021) 259-1299 — Telex: (021) 30212 BTCP-BR 
Assembleia. 10/1j. 112 (Ed. Cândido Mendes) — CENTRO Tel.: 222-5343 
Av. das Américas, 4790 s/615 (Centro Profissional Barra Shopping) — BARRA Tel.: 325-0481 
Rua 16 de Março. 80 s/lj. 3 — PETRÓPOLIS 
Rua dos Mineiros, 55 s/107 — VALENÇA 








DARGRAR AR RA GARRA ROCA SRA ARO RAR ADA RSA SA SRA AROS RAR RARAS 





he hp hp hp hp hp hp hp hp hp he ERA E o : a a foton bis poi aa 
COR ORI RIAA CRS R IRS RA RARAS RAS CRIAR SA CRS R GR URSO GORRO RSRSRS RAR CRS RORSR SR ORAS RAR ORA RA RARA RE RONDA RUA ARS AR UA CRIA SR CRS RSRSRS RERCA SRA RUSSA LASAR ; vor, E ne aro UEETU THEN PRINT W$ 
F$g%» THEN PRINT “4 "xs 
VER” THEN PRINT "E s 
ft ra USB" THEN FRIKT “s I$ 
1 REM 1a Z | ed p Gm 37 E z 0 58 
2 REM ALR My EE da = . | bl Da E 
3 REM ms ana o ces a em ; Í foic = IMDUE -1.8 
4 REM - a dd - Sue 
& REM Carlos Rogerio Tonussi : q E RR ta 5 
é REM Ribeirao Preto — SP sa ] InDvE SA 
7 REM té ta PS jane 
8 REM HP 85 tata SOSUÊ 
9 REM lgza COSUP 
ie839 RETURM 
i24y CLERR é DISP "GuA 
IMOVE 5,8 € TERA' A CURVAS, 

Este programa foi desenvolvido para rodar em sistemas HP- erros padrões, para então compor a curva. LABEL VALSCPD s219 Z3=1BB-P1 
85, visando diminuir o tempo gasto na confecção de gráficos e O programa pode ser utilizado logo após a tomada dos da- Ta MOVE B.=tyero 1226 FOF I=1 TO FI 
cálculos estatísticos simples associados. Ele está capacitado a dos, transformando-os em médias e plotando-os em um gráfi- 3a LABEL "eressione cont” 1230 CLERR & OISP "GUANT DS DRD00S 
traçar até seis curvas com até 30 pontos cada uma, constituin- co. É possível, também, comandar a colocação das marcas de PALISE PARA O PONTO": 1:8 INPUT 04 


FOR J=i TO Di 

DICF “DADO”: 3;6 INPUT Midi 
NEST JS 

Mi=e 

FOR J=i TO C1 

Mi=mT enc 


do-se cada ponto num valor numérico e seu erro estatístico. erro de modo que a apresentação final se organize da melhor : “» EFAZER A C 

O gráfico a ser desenhado é padronizado, bastando poucos maneira. Além disso, o programa imprime uma legenda para ) 
parâmetros para especificá-lo. A entrada de dados pode ser fei- cada curva traçada, as quais são especificadas por números. Os ' 
ta de duas maneiras: no modo direto ou no modo cálculo. No dados para o traçado das curvas são agrupados em uma matriz 
direto, a rotina solicita a entrada dos valores dos pontos que de 12 colunas por 30 linhas. Na primeira coluna estão os pon- 
comporão uma curva € seus respectivos erros. Já no cálculo,o tos da curva 1 e na sétima ficam os respectivos erros dos pon- 
programa pede os dados dos quais serão tiradas as médiase os tos, e assim sucessivamente para as outras turvas. 


IF WN=1 THEN 1206 
DISP “QUANTOS PO 
i CURURO, ;€ INPUT 
MEUGS By sE=iBacPI 
“PONTO” :» INPUT 
TCIL2GI, vice s DisP "UALOF DC PONTOS 
i z NPUT kKíiP2,PIia DISP 
"DIRETO" j ”W PONTO";F2:e INPUT Ko 
GAL. e 3 254 IF PEcPi THEN 238 
E, ug="" 2 IF Pri THEN 496 
CLEnRrR P DISP “ENTRE COM im 
ALOR" €& LISP "MAX.FRRA O EIS 
avr INPUT Y 
DISF "QUANTAE DIVISÕES EM v” 
;» INPUT D 
DISP “VALOR INICIAL PARG O 
IXO KR” & INPUT xi 
DISP "INCREMENTO FARG D VALO 
Rºrs” INICIAL” & INPUT sz 
DISP “FUNDO PRETO ci> ou ERA 


4 


J=4 


| 
Pole de SD DD PV CM o) PO ima 


nino ade 
Dam AM po Bd Ts ta O 5 +) Gi po 


Feed sei ir dr 


=) 


4 


E+5)=E 

PRINT “CURVR":E 
PRINT "PONTOS; 1;"1" 
FOR d=i TO 01 

PRINT MC): M:m, 


e 
a 
2 
E 
e) 
3 
3 
3 
3 
3 
E 
2 


0900 03 00 qo 00 


ego CO [Ty cm 
DRM RA 


“"MEDIA:" 
CLEAR ? DISP "QUER COrIAS O SECT. P+6: 
GRAFICO ScNºoR INPUT R$ Ss: 

IF ASEi.il="H" THEN coa Í ê 1 
PRINT TRECIZ2;"Y MAM=":Y É GOTO 258 
GRAPH RB GCLEAR —Cr-ta). é Cop ! 
br 
PRINT é PRINT é PRINT 


o 00 00 gi) =] 


“4 
[D) 



















q NCO “48 INPUT O 
A Cum! i IF E THEN PEN -; ELSE FEM 
1 ! i 

DISP "ENT RE COM UMA LEGENDRE za CLEAR d SE LEAR 8 SCALE -iO.1 

:"PAFF ESTA CURVE. QUE "4PNA 1 Va Y = = 

O ULTRAPASSE 29 E RRa CRER Ida NAMIS D. LBB/Pi, IRB-PL,ita MAOS A OBRA! 
= IF F=1 THEN INPUT , YAKIS 1 [Cc PÁ-SLA.Y-D.A,Y Estamos esperando sua colaboração. Faça um jogo bem interessante e divertido e envie-o para 
16 IF P=2 THEM INPUT a Jé IF vY-D>=1 AND v2D< o OR Y-D< MICRO SISTEMAS. É só enviar um texto explicativo, tirar uma listagem bem legível e enviar para nós. 
s2E IF P=3 THEN INPUT us 1 THER F=i . E não se esqueça de colocar seu nome completo, endereço e telefone de contato. 
402 TE P= ás 25 CA ATI = 4d AS Av. Presidente Wilson, 165/ R. Oliveira Dias, 153, Jardim Paulista, 
189 IF P=á THEN is Ed 376 IF Y-D>=10 AND : /Vicro 1210, Centro. a São Paulo, SP, CEP ÓIAI3 O 
196 IF P=5 THEN INPUT 4 F=1B Sistemas Rio de Janeiro, RJ, CEP 20030 — teis.: (011) 853-7758, 881-5668 
2RG IF P=6 THEN INPUT ds 322 IF Y:D>=188 AND * tel.: (021) 262-5259 





48 MICRO SISTEMAS, novembro/84 


FERREIRO PS O 


sinclair sinclair sine 


EERU RA RISCA CRAR RO RORTA CA CRS R RARO RAR OR OR ORE RCE RO RORS AOS URCA SR ORO RUA AR SRS RUAS ROS CRSA CASAS OR CR RSRSRS READER CASAS SANS A URSR SAGAN ASAS CA 


Julio Guatelli 
Sao Bernardo do 





| 





Este programa possibilita, através de 
um fácil e prático método, o cálculo da 
quantidade de luminárias necessárias à 
iluminação de áreas internas, bastando, 
para isso, que se disponha de qualquer 
tabela de fator de utilização (U) que 
forneça o fator exato ao tipo de luminá- 
ria a ser empregada no projeto. 


Para esse programa, utilizamos uma 
tabela elaborada pela Philips que, além 
de apresentar o fator de utilização (U) 
em função do fator local (K) e das re- 
flexões médias das paredes, fornece tam- 
bém as tabelas referentes ao nível de ilu- 
minação (E) em função do tipo de ativi- 
dade visual a ser exercida no local, bem 
como o fator de depreciação (D) devido 
a poeira que se acumula sobre osequipa- 
mentos e lâmpadas, fazendo com que 
estas forneçam menor quantidade de luz 
ao ambiente de trabalho. De acordo 
com o tipo de lâmpada a ser utilizada, 
temos ainda outra tabela que nos forne- 
ce o fluxo luminoso (lúmen) da lâmpada. 


Vejamos agora um exemplo ilustrati- 
vo do programa, que vai possibilitar ao 
usuário acompanhar todos os passos do 
mesmo. 


Estes são os dados do programa— 
exemplo: 


- LOCAL: escritório 
- COMPRIMENTO: 15 metros 
- LARGURA: 5 metros 
. ALTURA: 2.2 metros (já descontados 
0.8 metros referentes ao plano de traba- 
lho, no caso, uma mesa) 
. LUMINÁRIA: tipo TCS 662, de duas 
lâmpadas 

LAMPADA: tipo fluorescente (cor. 


50 








Campo 





VBUNNA-“DO 


ns... =. 
SOonounnosva 





0,11 











(trabalho bruto) 


Minimo para ambiente de trabalho 





150 lux 








Tarefas visuais simples e variadas 







500-250 lux 








Observações contínuas de detalhes 
médios e finos (trabalho normal) 






1.000-500 lux 








Tarefas visuais contínuas e precisas 
(trabalho fino, por ex. desenho) 


2.000-1.000 lux 








iluminação local, 
relógio) 
a 


Trabalho muito fino (geralmente 
ex.: conserto de 





== 
Re 


acima de 
2.000 lux 








Figura 2 


Ambiente 





Figura 3 





luz do dia), modelo TL 65/54, de 65 
watts cada uma. 


O primeiro cálculo a ser determinado, 
de acordo com o programa, é o fator do 
local (K). Este é facilmente obtido intro- 
duzindo-se os dados requeridos pelo mi- 
cro. O resultado a ser obtido deve ser (K) 
e ido 


Para obtermos o fator de utilização 
(U) vamos supor que o teto do escritó- 
rio e as paredes sejam de cor clara e o 
piso de cor escura. Teremos obtido en- 
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FLUORESCENTES 

TLD 15/54 800 
TLRS 20/54 1.000 
TLRS 20/33 1.120 
TLRS 20/37 650 
TLRS 20/27 650 
TLRS 20/34 760 
TLD 30/54 1.900 
TLD 30/33 2.250 
TLD 30/34 1.500 
TLRS 40/54 2.550 
TLRS 40/33 3.000 
TLRS * 40/37 1.700 
TLRS 40/27 1.700 
TLRS 40/34 2.020 
TL 65/54 4.000 
TL 65/33 4.950 
TL 65/37 2.850 
TL 65/27 2.800 
TL 65/34 3.200 
TL 65/57 2.800 
TLRS 110/54 7.600 
TLRS 110/33 8.900 

Figura 4 


tão, através da tabela apresentada pelo 
micro, um índice de reflexão igual a 751. 
Sendo assim, temos, a partir da tabela 
da figura 1, para (K) = 2.0 (valor logo 
acima ao obtido (1.7)) e índice de refle- 
xão igual a 751, um valor do fator de 
utilização (U) igual a 0.38. 


O segundo cálculo a ser determinado 
é o fluxo total (F). Para tal, devemos es- 
colher o nível de iluminação (E), de 
acordo com a tabela da figura 2, e o fa- 
tor de depreciação (D), de acordo com a 
figura 3. No caso, por tratar-se de um es- 
critório, optamos por um nível de ilu- 
minação (E) = 500 lux; e um fator (D) 
igual a 0.9. Desta maneira, chegamos ao 
fluxo total (F) = 109.649 lúmens. 


Finalmente, para chegarmos ao resul- 
tado do número de luminárias (N) de- 
vemos informar ao micro o número de 
lúmens fornecido por este tipo de lâm- 
pada, através da tabela da figura 4. Nes- 
te caso, temos 4.000 lúmens para a TL 
65/54. É necessário informar ainda o nú- 
mero de lâmpadas da luminária, no caso, 
duas. Desta forma, chegamos a um nú- 
mero de luminárias igual a 13. Confira... 
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S PRINT 
O INTERNA” 
10 PRINT C-----. = 
15 PRINT “1º CALCULO DO FATOR 
DO LOCAL (ki 
20 PRINT 
25 .PRINT “ESTE FATOR DEPENDE D 
as Rg RS DO LOCAL” 


38 PRINT “INTRODUZA O COMPRIME 


CALCULO DE ILUMINACA 












40 INPUT 
sp ENT “Cc 


OQ PRINT 
SS PRINT “INTRODUZA A LARGURA 
60 INPUT L 
6S PRINT “LARGURA=",L;* 


70 PRINT 

75 PRINT “INTRODUZA A ALTURA D 
A LUMINARIA 

80 PRINT “EM RELACAO RO PLANO 
DE TRABALHO 

8s INPUT A 


OMPRIMENTO=";C," ME 









METROS 












90 FRINT “ALTURA=",A;” METROS 
9S LET K=CaL/((C+L) 5A) 
100 PRINT 
1205 PRINT “FATOR DO LOCAL (k)= 
:K 
110 PRINT 
115 PRINT ANOTE O VALOR DE (k 
| OBTIDO" 
120 PRINT PARA CONTINUAR APER 






TE S E ENTER" 
125 INPUT Z 







a. Eds zs THEN GOTO 125 
200 PRINT CALCULO DO FATOR 
DE UTILIZA- CAD (U)* 
205 PRINT 
SUA OBTENCAO O U 


P 
215 PRINT “DISPOR DE UMA TABELA 
a 


220 PRINT TRAVES DELA OBTEMO 
S TAL FATOR' 

22s PRINT tU) EM FUNCAO DE (x) 
JA OBTIDO E' 

230 PRINT "DAS REFLEXDOES MEDIAS 
DAS PAREDES 






240 PRINT REPRESENTAMOS A REF 
LEXAO POR" 
PRINT “MEIO DE 3 ALGARISMOS 






ass 
PRINT 





O 1º REFERE-SE AO T 
REFERE-SE A PA 
REFERE-SE ARO P 
«DA ESQUERDA P7 A DI 
"CADA UM DESSES ALGAR 
CORRESPONDE A UM IND 
REFLEXRO (POR CENTO) 















PRINT 





PRINT 




























5" THEN CLS 
eo p COMO JA TEMOS DETERM 


“O FATOR DO LOCAL (x) 
REFLEXOES MEDIAS 
ATRAVES DE SIMPLES L 
DA TABELA, O FATOR D 
LIZACRO (U) PROCURAD 













E As: 
Soa PRINT 
E PRINT 
ITURA” 
Pro PRINT 
TI- 
aás PRINT 
o. 


DB 


















350 PRINT 
355 PRINT 





ANOTE O VALOR DE (U 


PARA CONTINUAR APERT 






S INPUT ss 
370 IF Z$= THEN CLS 
200 PRINT CALCULO DO FLUXO 





TOTAL (F)* 
405 PRINT 
Poda PRINT INTRODUZA O COMPRIME 












INPUT C 
PRINT 


PRINT 
PRINT 





MPRIMENTO=";C, "MET 















INTRODUZA & LARGuRra 









35 INPUT L 
440 PRINT “LARGURA=",L; “METROS 
445 PRINT 
PRINT “INTRODUZA A DEPRECIA 







DEPRECIACRO D 
INTRODUZA O 







Cálculo de Iluminação Interna 















“UTILIZACAO U=";U 
INTROD. NIVEL DE ILU 





a UT E 
S00 PRINT “NIVEL DE ILUMINACAO 
y 


LUX 
SOS LET F=CsL=E/(U+D) 
510 ERINT 


S15 PRINF “FLUXO TOTAL [(F)=",E 





S20 PRINT “ANOTE O VALOR DE (F 









S40 IF Z$="5" THEN CLS 

600 PRINT "4? CALCULO DO Nº DE 
LUMINÁRIAS (N) 

605 PRINT 

610 PRINT “INTRODUZA O Nº DE LU 
MENS DA” 

61S PRINT “LAMPADA A SER USADA 
MEDIAN-" 

E20 PRINT “TE TABELA DE FLUXO L 
UMINOSO" 

625 INPUT x 

650 PRINT “x=",x,” 
635 PRINT 

640 PRINT “INTRODUZA O Nº DE LA 
MPADAS DE” 

64s Era “CADA LUMINARIA (1,2 

y 


6S0 INPUT Y 
6SS PRINT “v=",v;“ LAMPADAS 
660 PRINT 

66S LET N=INT (Fs(Xev)) 

670 FOR 0=1 TO 5 

&7S PRINT AT i2,0;“N=",N; MRE 


60 PRINT AT 12,0; “N=";N;" LUMI 
NARIAS" 

€85 NEXT & 

690 PRINT 

EREA PRINT “GUANTO RO ESPACAMENT 
rita EST LUMINARIAS, DEIXAMOS 
ZoS ERINT TERIO DO USUARIO DES 
710 lg RENE ESTE FACA USO DO BOM 


715 PRINT 
720 PRINT 


LUMENS" 


+*MãOS A OBRA++" 








Av. do Contomo, 5826 /3º andar 
— Savassi — Belo Horizonte — 
PABX (031) — 223-6000 


e PROLOGICA 


B microcomputadores 


— — ] REVENDEDOR AUTORIZADO 









ORIRIALACA CAIRIA LA CACR LASERS RIA CASA CASA RIRARIRARIA] 
trs 80 trs 80 trs 80 trs 80 trs 


FARIAS ACRSRCRIA DR RIRSRS OR SRS CASAIS RARO RCRS RARO RARO ROSSAS AR DÃO RSRSRS AGR LASER DAS KER LAS RSRS ACRUR GERAR RSRSRS RSRS RU UR RSRSRS RARAS RIÃ 






í 

2 = ip Cn e JE CE ih 

3 meto mentes mestras encestos cesecmms comenta comemos cosrmses 
4 

a Rosana Maria Gomes 

6 Campo Limpo - SP 

7 


CP SO 


Com este programa é possível se obter o calendário de um 
ano completo, compreendido entre o intervalo de 1900 a 1999 
e determinado pelos dois algarismos da dezena do ano deseja- 


O TIETE TE DEDE DEE DD DE E 
DEDE E DEE EE E 
7 "un 
RIO E idad 
B 'xwa 


PROGRAMA CALENDA 


POR ROSANA GOMES 
ne 
DO TIME IEEE DEDE DEDE E DE DE DE DEE O DE DEDO DE DDD DE E DE E E DE 
DEDEIEE DEDE DE DEDE DEE 6 6 6 DS 
10 CLEAR 2000 
15 DIM MEC12)EDIM DXCIZ) 
20 N$=”  JANEIROFEVEREIRO MARCO 
MAIO JUNHO JULHO AGOSTO 
OUTUBRO NOVEMBRO DEZEMBRO “ 
30 FOR I=í TO 12 
40 READ DXCI) 
S0 NEXT 1 
60 DATA 31,28,31,30,31,30,31,31,30,31,30,31 
61 CLS:PRINTESPRINT 
62 PRINTS MM Se DE DEDO DEI 6 DE 6 DE DO DE 6 DE E DE DE DEE TE DEE SE 
EEE DD 6 7 
65 PRINT” x 
DARIO Eta 
66 PRINT * PARA 
SECULO XX à dd 
67 PRINT IDE DO DO DO DD 6 E DE DI E DE DD DE E 
SETE DEDE DEE E SS 7 
48 PRINTE:PRINT 
69 PRINT” PREPARE A IMPRESSORA, APERTE <EN 
TER) QUANDO ESTIVER PRONTA” 
70 INPUT C 
75 INPUT” QUE ANO 
BO LPRINTELPRINT” 
CALENDARIO - SECULO xx” 
85 PRINT” AGUARDE” 
90 LPRINT 
400 R=0 
110 GOSUB 1000 
420 IF R=í THEN PRINT“ANO IMPOSSIVEL, ESCOLHA 
OUTRO“ :CLS:GOTO 75 
130 IF BZ=0 THEN DX(2)=29 ELSE DX(2)=28 
140 N=2+(A%-1)4365+INT((AZ-Í)/4) 
150 GOSUB 2000 
160 AS=STRE(AX) 
170 LPRINT” 
ANO DE “s;RIGHTS(“07+MIDS(AS,2),2) 
180 LPRINT 
i9o L=í 


ABRIL 
SETEMBRO 


PROGRAMA CALEN 


QUALQUER ANO DO 


QUER”; AX 


Calendário 


52 


do. Por exemplo: para 1984, entrar apenas com 84, e assim 


por diante... 


200 I=í 

210 GOSUB 3000 

220 FOR J=í TO 

230 FOR S=1 TO 

240 GOSUB 4000 

250 L=L +21 

260 LPRINT 

270 NEXT 5 

280 L=1 

290 I=1+3 

300 IF I=<140 THEN GOSUB 3000 

340 NEXT J 

320 PRINT” FINAL “:END 

999 " ROTINA P/ TESTAR DATA 

1000 IF AZXO OR AX)99 THEN R=1í 

1010 BZ=AX-CINT(AX/4)%4) 

1020 RETURN 

1999 *” ROTINA P/ CALCULAR DIAS 
2000 FOR I=í TO 12 

2040 N=N-CINT(N/7)%7) 

2020 MEC I)=STRINGS(N*I,” “) 

2030 FOR T=í TO 9 

2040 MECI)=M$CID+” “+STRECT) 

2050 NEXT T 

2060 FOR T=í0 TO DA(I) 

2070 MECI)=MECI)+ASTRECT) 

2080 NEXT T 

2090 MECI)=MEBCI)+STRINGS(40,” “) 
2100 N=N+DZC(I) 

2410 NEXT 1 

2120 RETURN 

2999 *” ROTINA DE IMPRESSAO 

3000 E$=” “+STRINGS(20,“*)+” 

3010 S6=7 DS 70 a Ss “ 
3015 LPRINTILPRINT 

3020 LPRINT TAB(B);MIDS(NS,(I-1)x9+1,9); TAB( 
32);MIDS(NS, (1)x9+1,9); TAB(SB) ;MIDECNS, CI+i) 
*9+1,9) 

3030 LPRINT ES;ES;ES 

3040 LPRINT S$;5S$;S$ 

3050 LPRINT ES;ES;ES 

3060 RETURN 

3999 * ROTINA PARA IMPRESSÃO DE DIAS 
4000 FOR K=I TO I+2 

4010 LPRINT;” “;MIDSC(MEBCKI,L,21)57 “s 
4020 NEXT K 

4030 RETURN 
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Quatro. Repetição 
automática de carac- 
teres. 

Cinco. Diagnóstico 


E de teste automático 
ao ligar. 
enha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visita de um Consultor 
Técnico Clappy no 
e seu escritório. 
Aliás, na Clappy 
o você encontra tudo o 


que precisa em 
microcomputadores, 
riféricos, suprimen- 
os, softwares. Além 
de cursos próprios de 
programação e 
operação, assistência 
técnica, implantação 
e instalação de siste- 
mas. E mais. 
Aplicativos 
comerciais: contabili- 
dade, controle de 
estoque, folha de 
pagamentos, contas a 
pagar e a receber. 

Aplicativos de 
apoio: planilha 
financeira, processa- 
mento de dados 
mala direta, cadastro 
e controle financeiro, 
gráficos, etc. 

“Seja por venda, 
seja por leasing, 
ninguém pode ner 
um pci melhor do 
que a Clappy. 


TLQUER ron 
DIZER TECLADO ciazzy 
INTELIGENTE. 


Tel.: (021) 253-3395 

Centro: R. Sete de Setembro, 
88-loja Q (galeria) 

Tel.: (021) 222-5517/222-5721 
Copacabana: Rua Pompeu 


E . Loureiro, 99. 

O TIéomaisnovo um teclado gerador em sr uer tecla. Tel.: (021) 257-4398/236-7175 
microcomputador da de caracteres para a ois. Redefinição Aberta diariamente das 
Unitron. lingua portuguesa. das posições da tecla las foras caos ras 

Ele tem um mi- Veja o que este pelo próprio usuário. Estacionamento próprio. 
croprocessador 6504 Ele e fazer: Três. Modo de aee A UE 
e um teclado Um. Programação operação igual à Entregamos êm tado 


inteligente. Isto é, de funções especiais máquina de escrever. Brasil pelo reembolso Varig. 








Filho 


ârmando Oscar Cavanha 
Rio de Janeiro —- RJ 


TK 2000 





Solte a sua imaginação e saia desenhando na tela do seu mi- 
cro, com este programa. 

As opções que você tem são: mudar a cor do desenho, apa- 
gar e posicionar a coordenada (x) e a abscissa (y). 

Para desenhar, o usuário utiliza as seguintes teclas: 
«1 — para cima 
. 2 — para baixo 
.3 — para a direita 








| 





DIRIALRIA SRS RI RCA SRUA DESA CASE CRIAR RUAS RSA CASA CASE TÃO 
apple apple apple apple apple af 
LARIRTACAA RIAA SACAS RSA UASAS RAR CR RUA URA RUA URO ROSCA SRA SOR SRURCRA RUA SRS RURS RCA SA SRS RCA CRS RCA CRSRARURS ROSIE ROS ORRCRCA RASURAS ROS CR CRC RCR IRIS RA 


: a 


e Fernando M. Roxo da 


«4 — para a esquerda 

- S — em diagonal, para cima, à direita 

- 6 — em diagonal, para cima, à esquerda 
«7 — em diagonal, para baixo, à esquerda 
. 8 — em diagonal, para baixo, à direita 


10 REM DESENHADOR 
11 REM POR: ARMANDO O. CAVANHA FILHO 
12 REM E FERNANDO M.ROXO DA MOTTA 
15 GOSUB 20000 
20 TEXT : HOME 
30 HOR 
33 HCOLOR = 3 
IS A = OB =3 
36 VTAB 21: PRINT" 6 15% PRINT 
4 3º PRINT" 7268" 
37 VTAB 21: HTAB 15: PRINT “9=MUDANCA 
DE COR 4=aPAGAa” 
40 X = 140:Y = BO: VTAB 231 HTAB 15: PRINT 
45 HTAB 22: PRINT" Y= “pyp o 
SO MHTAB 32: PRINT * COR = “53; 
70 X = 140:Y = 80 
87 HPLOT X,Y 
88 SOUND A * 30,8 
90 CALL 768:A = PEEK (767) - 176 
91 IFA<1ORA>S9 GOTO 
100 ON A GOTO 1000,2000, 3000, 4000,500 
0,6000,7000,8000,9000 
110 GOTO 90 
1000 Y = Y — 11 GOTO 10000 
2000 Y = Y + 1: GOTO 10000 
3000 1: GOTO 10000 
4000 1: GOTO 10000 
5000 13X = X + 14 GOTO 10000 
6000 1X = X — 1: GOTO 10000 
7000 13X = X — 1: GOTO 10000 
8000 Y = Y + 14X =X + 1: GOTO 10000 
9000 768:B = PEEK (767) - 176 
9005 IF B< 1 ORE > é THENS9000 
9010 HCOLOR 
9020 CALL 768: IF 
9030 GOTO 90 
10000 VTAB 23: HTAB 15: PRINT “X = "4 
X;º “js HTAB 222 PRINT” Y="y 


PEEK (767) < 


5; 
10005 IF X< 1 0RX>2780RY<1OR 
Y > 158 THEN 90 


10010 
20000 
20010 


soro 87 

FOR A = 768 TO 782 

READ B: POKE A,B 

20020 NEXT : RETURN 

20030 DATA 32,67,240,144,4,141,255,2, 
76,169,0,141,255,2,96 


Desenhando no Micro 
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= B: VTAB 23: HTAB 32: PRINT “ 
> O GOTO 9020 


Motta 


“x 


“a 


COR = 





REGA RIASALASA ASAS RIAA CRS RSRSRS RA Ri RIA CASARÃO 
sinclair sinclair sinclair sina 


GERARA RA RARA RARAS RSA R RSRSRS RAR ORG RAR ER OR OR CRS RAR ORA RAR CRS RAR ORG R ORAS RO RAR ERA URO RO ORI AS RA RORSA CRIA RA RSA RARO RA SOR UR ORA RARA RARAS RA RIRIAS 


i REM 

o REM Cad... 
R EM -— comeco usem memeess 

4 REM 
REM 
REM 
REM 
REM TK 85 
REM 





& 


dos Santos Silva 


Janeiro - Rj 


Roberto 
Rio de 


Sono 


O programa Cálculo de Vencimentos é útil para aplicações 
comerciais, podendo calcular uma determinada data de paga- 
mento, baseado apenas na data de entrada e no prazo forneci- 
dos pelo usuário. Neste programa, o prazo fornecido só pode 
ser em dias, mas ele poderá ser adaptado para aceitar também 
prazos em meses ou.em anos. 


Após o usuário fornecer a data e o prazo, o programa dimi- 
nui o dia da data de entrada do total de dias do mês de entrada 
(linha 160). Este total é definido na sub-rotina quê começa na 
linha 500. Na linha 170, o resultado da subtração é diminuído 
do prazo. Se o resultado desta última operação, contido na va- 
riável R2, for menor ou igual a 0, o fluxo de processamento 
passará da linha 180 para a linha 200, onde o dia do vencimen- 
to será computado como a soma do dia da data de entrada 
mais O prazo; o mês e o ano serão os mesmos da data de entra- 
da. 


Caso R2 seja maior que 0, o fluxo será desviado para a sub- 
rotina 600, que somará 1 ao mês e ao ano (caso o mês seja 


GOTO zoo 


LET DU=D+PR 


Cálculo de Vencimentos 
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maior que 12), através das linhas 600, 610, 620 e 630. Na li- 
nha 640 temos o desvio para a sub-rotina S00, que define o to- 
tal de dias do mês corrente. Este número de dias é diminuído 
da variável R2 e o resultado é jogado na variável R1 (linha 
650). Se a condição da linha 660 (R1 < 0 ou R1 = 0) for satis- 
feita, o dia do vencimento será computado, o mês e o ano da 
data de vencimento serão os correntes e o programa sairá da 
sub-rotina. Caso a condição não seja satisfeira, joga-se R1 em 
R2 (linha 690) e o fluxo voltará para o início da sub-rotina 
(linha 700), repetindo-se todo o processo até que a condição 
da linha 660 seja satisfeita. 

Esta descrição do funcionamento do programa demonstra 
apenas o processo utilizado para a obtenção da data de venci- 
mento e as linhas do programa relacionadas diretamente com 
ele. O processamento principal do programa, entre as linhas 
115 e 215, é feito ssb o modo FAST, e na linha 250, a men- 
sagem é escrita com o cursor no modo GRAPHICS, para se 
obter o efeito pisca-pisca. O programa roda em equipamen- 
tos da linha Sinclair, com 16 Kb de RAM. 


S;D&;AT 10,14;P 
Mg AA 


mm 


na + 


EI 
E 
E 
E 


MT] a) 


+ 


T 
[= 
[E 
I 
L 
L 
G 
L 


360060660” 
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ORI RAR CAIR RIR IRS RAR CRI RA RURO RIR ARA RARAS RIA 
trs color trs color trs color ti 


LERIRLRCA IRA RA RIAIALASASRI RA RUGAS SASASASAS RSRS RAIA CASA ASAS Ri RUA AA CASAS RS RA RUAS RUA CR SR SRA RARA GAROA SA CASAS RA RA RARA URCA SRS RSRS RUA CACR RS RARA 





R E M-—— emma mmmcetes aoontero comecem matecam comme concors meses vesmemso 

REM 

RE Geraldo Simonetti Bello 
REM Vitoria - ES 








520 IF A$="2" GOSUB620:P=5:F=6:S 
=1:L1=6:L2=8:GOSUB710:FORX=1TO2: 
GOSUB1110:GOSUB1110:GOSUB1120:NE 
XT:GOTO410ELSE420 

610 CLS:PRINTTAB(41);"MARIA, MAR 
IA"; TAB(75);" AUTORES:" ;TAB(71);" 
MILTON NASCIMENTO"; TAB(46);"E";T 
AB(40);"FERNANDO BRANT" :GOTO630 

620 CLS:PRINTTAB(72);"MEU BEM QU 
ERER";TAB(76);" AUTOR:";TAB(76);" 
DJAVAN" 

630 AS=STRINGS(30," 










-") : PRINTTAB( 









1040 RETURN 
1050 PLAY"L8;D;L4;D;L8;G;L4;G;L4 
«sF+;L25D” 

1060 RETURN 

1070 PLAY"V30;P64;L4;A;L8;A;L4;A 
;L4.;A;L8;B;L4;A;L4.;A;L8;A;L4;A 
;:L4.;A;L8;B;L4;A;L4.;A;L8;G;L4;G 
;:L4.;G;L8;G;L4;G;L4.;F+;D;E" 
1080 PLAY"L2;F+;L4;F+;L8;F+;L4;F 
+;L4.;F+;L8;A;L4;B;L4.;F+;L8;D;L 
4;D;L4.;D;L8;D;L4;D;L4.;E;L8;E;L 
4;E;L4.;E;L8;D;L4;D;L4.;D;L8;G;L 


3 nt “OLOR 44 33);AS; TAB(68);"ARRANJOS PARA O 4;G;L4.;F+;L2;D" 
me OR co CO:";TAB(68);"GERALDO SIMONET | 1090 RETURN 


e linhas 1010 a 1090 — contêm os comandos utilizados na 





TI BELLO";FORZ=1TO2000:NEXT:RETU 
RN 

710 PMODE3,1 

720 COLORP,F 

730 PCLS 








1110 PLAY"V30;T1;02;L12;A;B;03;C 
+;L2;C+;02;L12;P64;B;03;C+;L4;D; 
L8;C+;02;B;L4;B;L8;A;L4;G+;L8;F+ 
:G+;A;B;A;L4;G+;F+;L8;G+;L2;E;P1 
6" : RETURN 





Se você gosta de Música Popular Brasileira e é usuário de al- 
gum dos micros compatíveis com o TR$-80 Color equipado música 1; 
com Extended Color BASIC, aqui está um programa que com- e linhas 1110 a 1130 — contêm os comandos utilizados na 
bina recursos gráficos e musicais para executar duas composi- música 2. 
ções bastante conhecidas da MPB: Maria, Maria, de Milton Nas- Tendo assimilado bem o programa, você poderá ampliá-lo 
cimento e Fernando Brant, e Meu Bem Querer, de Djavan. inserindo outras composições e fazendo as modificações ne- 
Eis uma breve descrição do programa: cessárias. Aliás, os comandos PLAY foram colocados como sub- 
e linhas 10 a 400 — desenham a tela de título, usando alta re- oram nas últimas linhas exatamente para facilitar o seu tra- 
solução; o. 
e linhas 410 e 420 — permitem selecionar uma das duas músi- Agora sente-se confortavelmente e divirta-se ouvindo o Co- 
cas disponíveis; lor executar duas das várias músicas que ele aprendeu desde 
e linhas 510 e 520 — coordenam a execução das músicas le que chegou ao Brasil. 













1120 PLAY"T1;L12;A;B;03;C+;L2;C+ 
;L4;G+;L8;E;L4;C+;02;A;03;F+;LB8B; 
D;L4;02;B;L8;A;L4.;03;F;L4;F;P64 
:L8;E;L2;E;L4;C+;L8;F+" 

1130 PLAY"L2;02;B;L4.;A;03;C+;P3 
2;L4;C+;L8B;F+;L2;02;B;L4.;A;L8;0 
3;C+;L2;C+;P64;L8;C+;C+;D;02;B;0 
3;C+;L4;02;A;B;L2;A;P16":RETURN 
MPBASIC 


740 SCREEN1,S 

750 CIRCLE(40,116),15,,.75 

760 CIRCLE(98,86),15,,.75 

770 LINE(53,116)-(53,50),PSET 
780 LINE(111,86)-(111,26),PSET 
790 LINE(53,50)-(111,26),PSET 
800 LINE(53,54)-(111,30),PSET 
810 CIRCLE(169,66),15,,.75 

820 LINE( 156,66)-(156,126),PSET* 





E] 














2, respectivamente; 

e linhas 610 a 630 — informam sobre a música escolhida; 

e linhas 710 a 1000 — desenham a tela que será mostrada du- 
rante a execução das músicas, usando média resolução; 


830 CIRCLE(216,66),15,,.75 

840 LINE(205,66)-(205,126),PSET 
850 LINE(5,56)-(251,96), PSET 
860 LINE(5,76)-(251,76),PSET 





Maria, Maria — Copyright 1978 by Três Pontas Edições Musicais Ltda. 
Meu Bem Querer — Copyright 1980 by Edições Musicais Tapajós Ltda. 
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PMODEA4 , 1 

PCLS:DIMV(89) 

SCREEN1,1 

LINE(94,60)-(158,126),PSET,B 

CIRCLE(114,99),10,,1,.5,1.25 

CIRCLE(114,95),16,,.9,.25,.72 

CIRCLE(112,73),5,,12,.75,1.25 

CIRCLE(112,73),5,,2,.4,.75 

LINE(109,78)-(116,115),PSET 
CIRCLE(112,117),5,01,.97,1.5 
CIRCLE(111,115),3,,1,.5,1.35 
CIRCLE(137,96),10,,2,.7,1.25 
CIRCLE(134,83),7,,1-95,.4,.75 


CIRCLE(132,85),4,,1,.63,1.4 
CIRCLE(152,82),2 
CIRCLE(152,90),2 
GET(97,63)-(155,123),V,6 
LINE(94,60)-(158,126),PRESET 


FOR X=10 TO 184 STEP 58 
PUT(X,4)-(X+58,63),V,PSET 
NEXT 

FOR X=10 TO 184 STEP 174 
PUT(X,65)-(X+58,125),V,PSET 
NEXT 

FOR X=10 TO 184 STEP 58 


260 PUT(X,126)-(X+58,186),V,PSET 
270 NEXT 

280 LINE(6,2)-(250,188),PSET,B 
290 LINE(70,65)-(182,123),PSET,B 
300 DRAW"BM100,103;U8;E2;U8;R3;F 
4;E4;R3;D19;L3;U15;G4;H4;D15;L4" 
310 DRAW"BM121,103;U8;E2;U8;R4" 
320 CIRCLE(127,90),6,.41,.8,1.25 
330 CIRCLE(127,90),2 

340 DRAW"BM125,95;D9;L4" 

350 DRAW"BM136,103;N;R9;U8;E2;U8 
:R6" 

360 CIRCLE(144,89),5,,1,.8,1.18 
370 CIRCLE(143,89),2 

380 CIRCLE(144,98),6,,1,.72,1.2 
390 CIRCLE(143,98),2 

400 FORZ=1TO2000:NEXT 

410 CLS: PRINTTAB(133);"ESCOLHA A 
MUSICA (1-2)";TAB(103);"(1) MAR 
IA, MARIA";TAB(71);"(2) MEU BEM 
QUERER" 

420 AS=INKEYS: IFAS=""THEN420 

510 IF A$="1" GOSUB610:P=1:F=2:S 
=0:L1=2:L2=4:GOSUB710:GOSUB1010: 
GOSUB1030:GOSUB1010:GOSUB1050:GO 
SUB1070:GOSUB1070:GOTO410 
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870 LINE(5,96)-(251,96),PSET 

880 LINE(5,116)-(25,116),PSET 
890 LINE(55,116)-(251,116),PSET 
900 LINE(5,136)-(251,136),PSET 
910 FOR 1I=1 TO 3 

920 FOR C=L1 TO L2 

930 PAINT(40,116),C,P 

940 PAINT(98,86),C,P 

950 PAINT(169,66),C,P 

960 PAINT(216,66),C,P 

970 CIRCLE(192,56),25,0,.05,7.55,« 
95 

980 PAINT(82,40),C,P 

990 NEXT C,I 

1000 RETURN 

1010 PLAY"V25;T3;01;L8;A;02;L4;D 
:L8;D;L4;D;L4.;D;L8;E;L4;D;L4.;D 
'L8;A;L4;A;L4.;A;L8;B;L4;A;L4.;D 
:L8;G;L4;G;L4.;G;L8;G;L4;G;L4.;F 
+;L4.;D;L4.;E;L2;F+;L4;F+;L8;F+; 
L4;F+;L4.;F+;L8;A;L4;B;L4.;F+;L8 
;D;L4;D;L4.;D;L8;D;L4;D;L4.;E;L8 
:1E;L4;E;L4.;E;L8;D;L4;D" 

1020 RETURN 

1030 PLAY"L4.;D;L8;G;L4;G;L4.;F+ 
;D" 
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novas fitas com 


PARA EQUIPAMENTOS COM LÓGICA SINCLAIR 


PARA EQUIPAMENTOS COM LÓGICA TRS-80 
MEI [uu 


SIMULADOR DE VÔO XADREZ 
se a fear jd 


Comum 





SOFTWARE 


AR REVENDA CAM ETOS 
chose CORNO E TAUM 
Erro 

Flrgem), 





emocionantes para você! 


EIRIRIACR SACRO RSRSRS OR SR ORAR RSRS SOR SRSR SRS GORRO 
sinclair sinclair sinclair sincl 


CORO RAR CRIA CASAS ARS A SRS RIRO RSRSRS RUAS RAS RCE CRS RSRS RCR DAS RUAS RSRS RSRS RSA SA CASA RASA CASAR AURA RUAS ORAR DRA RERS ARA RE RORCRLASRAR ORLA RIAA IÃO 






í 

e 

a 

4 

E Marcel G. de Albuquerque 
é Maceio - AL 

7 

[8] TK Bel 

Ed 


Este programa serve para mostrar o 
quanto se recebeu de salário durante um 
determinado período, em dinheiro atua- 
lizado. Assim, o programa pede que seja 
digitado o mês/ano, o salário e o valor 
da ORTN do mês. A seguir, divide o sa- 
lário pelo valor da ORTN, obtendo-se os 
salários já convertidos em Obrigações 
Reajustáveis do Tesouro Nacional. Para 
se obter o valor real do que se recebeu 
no período, essas unidades devem ser 
multiplicadas pelo valor atual da ORTN. 


Com isso, teremos também uma compa- 
ração entre a variação salarial e a variação 
das ORTN. Observe que na linha 4 do 
programa foi escolhido o valor 12 para a 
variável U. Para um maior número de 
meses, deve-se dimensioná-la convenien- 
temente. 


O programa é auto-explicativo, mas 
como exemplo tomemos os dados da fi- 
gura 1. Para formar esta tabela, basta colocar o programa para 
rodar e, escolhida a opção “TAB”, digitar os salários-mínimos 
de março de 1983 a fevereiro de 1984 em Alagoas, com os res- 
pectivos valores das ORTN de cada mês. A quarta coluna (S/ 
ORTN) mostra a variação do salário mínimo de Alagoas em 
ORTN. Uma outra opção (CAL) mostrará quanto se recebeu, 
“durante 12 meses, em valores de fevereiro de 1984. Assim o 
programa fornece o valor de Cr$ 648.910,57, recebido entre 
março de 1983 e fevereiro último. 


MAR/83 
ABR/83 
MAI/83 
JUN/83 
JUL/83 


AGO/83 
SET/83 
OUT/83 
NOV/83 
DEZ/83 
JAN/84 
FEV/84 


Figura 1 


SUGESTÕES 


O fundamental deste programa é a relação entre a variação 
de um determinado valor e a variação das ORTN que, sendo 
corrigidas pela correção monetária, com base no índice oficial 
da inflação, nos dá uma exata medida do quanto recebemos ou 
pagamos em função da desvalorização da moeda. Assim, pode- 
remos ter o mesmo tipo de comparação substituindo os salá- 
rios pelas prestações pagas num consórcio ou pelas prestações 
da casa própria. Mas, para se obter resultados como esses, seria 
interessante fazer algumas modificações no programa original. 
Em primeiro lugar, o número de meses não pode continuar sen- 
do fixo. Assim, deve-se apagar a linha 4 e incluir as seguintes: 


58 


SALÁRIO ORTN S/ORTN 


3.292,32 
3.588,63 
3.911,61 
4.224,54 
4.554,05 
4.963,91 
5.385,84 
5.897,49 
6.469,55 
7.012,99 
7.545,98 
8.285,49 


20.328,00 
20.328,00 
30.600,00 
30.600,00 
30.600,00 
30.600,00 
30.600,00 
30.600,00 
50.256,00 
50.256,00 
50.256,00 
50.256,00 





140 CLS 

141 PRINT "QUANTOS MESES 2?" 
142 INPUT U 

143 DIM O(U) 


Também seria útil saber quanto se pagou em valores não rea- 
justados, para se estabelecer uma comparação. Para isso, deve- 
se incluir: 

436 LET TOTAL 
445 LET TOTAL 


0 
TOTAL + S(I) 


Para se obter na tela este novo cálculo, é preciso substituir 
as linhas 510, 520, 530 e 540 por: 
510 PRINT,, "- REAJUSTADOS CONFORME EVOLUCAO" 
520 PRINT  " MENSAL DAS ORTN:" 
530 PRINT,, TAB 11; "CR$"; (INT(SAL*100))/100 
540 PRINT,, "- NAO REAJUSTADOS:" 
e também incluir as seguintes linhas: 


550 PRINT,, TAB 11; "CR$"; (INT(TOTAL*100))/400 
560 GO TO 70 
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Para uma melhor formatação da tela, pode-se ainda incluir: 


505 FOR P=0 TO 31 
506 PRINT "S"; 
507 NEXT P 
E como moditicações finais, que podem ser implementadas 
mesmo sem as anteriores, deve-se apagar a linha 430 e modifi- 
car a linha 120 para: 


120 IF R$ = "PAR" THEN GO TO 2000 


1 PRINT AT 11,2:"SALARIOS REA 
JSTADOS CONFORME EUVOLUCAD MENSA 
DAS ORTN 





SS NSNSSNHNGSO 


PAPPRPRpRRRE mM 
JM E Cota for O DD o 





Salários 


acrescentando: 


2000 STOP 
2010 SAVE " SALARIOS" 
2020 GO TO 1 


Além dessas modificações acima, o leitor pode mudar a pa- 
lavra SALÁRIOS, existente no programa, por MENSALIDA- 
DES, PRESTAÇÕES ou aquela que melhor significar o que o 
usuário deseja expressar. 


L =5*0U 
TOTAL DE SALARIOS PE 
PERIODO DE “;D$11 


TADOS CONFORME 


emu sm 





TAB 9; "SALARIO 
b 


1) -0(1) 4100 

RÍI) 
TAB (15-LEN X$' 
EN US) ,O(I/, TRE + 


DNOn Hu 


5 a 
32-LEN ES); 
730 NEXT 1 

740 GOTO 78 

1000 PRINT AT 20,0; "DADOS ERRADO 
5 FORAM APAGaDS 

1010 PAUSE 200 
1020 coro 150 








Impressoras apaixonadas, 


micros felizes. O 
Ecodata EL-8000 


A impressora 
fora de série. 


EL-8000 é tudo que um micro precisa de 
uma impressora. De incrível versatilidade 
a EL-B000 possue 

* Controle por microprocessador 

* Escrita bi-direcional em qualquer cir- 
cunstância - procura lógica. 

* Imprime em diversos idiomas: inglês, 
francês, alemão, espanhol, etc. 

* Desenha, faz gráficos, reproduz qual. 
quer imagem que um Micro produza 
em seu vídeo. 

* Troca de formato de impressão dentro 
da mesma linha. 

* Velocidade de comunicação de 50 até 
9600 BPS. 

* Buffer de recepção até 2,000 caracte- 
res 

* Produz diversos tipos de impressão: 
normal, negrito, expandido, sublinha- 
do, sub e sobre-escrito. 

* 80 a 132 caracteres por linha 

* Impressão matricial 9x7 permitindo 
até 8 vias numa velocidade de 100 
CPS. Em bobina, folha solta e/ou for- 
mulário continuo. 


* Etc... etc... etc. Goiânia - Salvador 


Rio de Janeiro - R. República do Libano, 61 
São Paulo - Rua Frei Caneca, 1119 - Tel.: (011) 284-8311 
Brasília - SCS 02 - Bloco C nº 41 SL. 01 - Tel.: (061) 225-1588 - Telex (061) 1750 
Porto Alegre - Rua Santa Terezinha, 300 - Tel.: (051) 232-3564 - Telex (051) 2144 
Belo Horizonte: Tel.: (031) 222-7809 


” T VI , 
[ pe 


amento perieito. 


SISTEMA DE PROCESSAMENTO DE DADOS E TELECOMUNICAÇÕES 


12º andar - Tel.: (021) - 221-4677 - Telex (021) 30187 
Telex (011) 22191 











DURA RA RIAA RSA LALAIA CASAR ARSRS A UA RARAS RIAA RAS 


trs 80 





trs 


80 trs 80 trs B0 trs 


RCA CA ECC R RCE CER RISE RIR CRESCE RUN CR O RO RUE RO RS RSA CA CRS RUA TANGA CRS READER UR O RS RA RUA SRS OR CRS SACA CRER DRS RAR CAS RA RUAS AAA ORA AAA RIA 








à REM 

2 REM AJ 
3 REM: 

4 REM 

o REM Elasden e 
é REM Sorocaba 
? REM 

o REM CE SOU 

9 REM 


É sempre bom separar uma parte do 
salário para fazer pequenos investimen- 
tos, que podem ser um ótimo socorro 
em momentos imprevistos. As vezes, fa- 
zer um empréstimo bancário também 
pode ser um bom negócio, se temos um 
destino rentável para este dinheiro. 

Criado para o CP-500, este programa 


REM mumumannnnanmnnnananmannanas 
2 REM « NOME DO PROGRAMA ” 
REM * INVESTI/BAS ” 





AO io RATE 





Domene 


foi desenvolvido com o objetivo de ori- 
entar o pequeno investidor sobre os me- 
lhores negócios que ele pode realizar 
com uma determinada quantia, através 
do estudo dos cálculos de rentabilidade 
dentro do período de tempo que cada 
tipo de aplicação pode oferecer. Os cál- 
culos apresentados pelo programa são 


SyPNSINA/FEGOTO 360 





baseados em juros compostos (juros 
sobre juros). Com este programa, o pe- 
queno investidor poderá saber, por 
exemplo, quanto teria que aplicar por 
um certo número de meses para ebter 
um valor equivalente em uma única 
aplicação com o mesmo período e a mes- 
ma taxa de juros mensal. 


290 A=(1+T)CNEF=A-1 RETURN 


REM enmnnananananaannnnanaaanaas 
REM 
CLS:PRINT CHR$(23) :PRINTO 212, “INVESTIMENTO” 
PRINTO 338,/---————- à 
PRINTO 450,“AUTOR CLAUDENIR CLAUDIO DOMENE” 
PRINTA SBB, “EMBRATEL - SOROCABA” 
AS=INKEYSSIF AS=”” THEN 50 
Z$="Nesta opcao voce “:X$=“tem uma certa quantia 
CRIE 
70 CLS:PRINTO 10,“»* PROGRAMA PARA O PEQUENO INVESTIDOR ma” 
80 PRINTO 74,”“;2FOR Int TO 4O4PRINT CHR$(95);2NEXT 1 
90 PRINTO 197,"Este programa destina-se aqueles que pretendem fa 
zer inves-timentos, or ientando-os na melhor opcao. Os calculos 
aqui apre-sentados sao baseados em juros compostos (juros sobre 
juros). 
100 PRINTO 453,Com este programa sera” possivel verificar sua c 
aderneta depoupanca, seus emprestimos e muitas outras coisas de 
pendendo decomo utiliza-lo. 
140 PRINTO 645,"0br igado pela atencao e boa sorte. 
120 FOR Así TO L00:NEXT AZPRINTA 930," 
2FOR Así TO ADO!NEXT ASPRINTO 930,“TECLE CENTER) PARA CONTINU 
AR“IIF M$=INKEYS THEN 120 
130 CLS:PRINTOZO,“P EM S --—) (1)"084,"5 EM P ---> (2)"9148,ºR E 
p 


“CrAS="MNNNHH 


NS ==) (3)"9212,"S EM R --—) (4)"9276,"R EM P --—) (5)" 
EM R ==> (6)"0389,“P=VALOR ATUAL“DAS; 
S=VALOR FUTURO”AS76, 

140 PRINT“QUAL E” SUA OPCAO 9” 

150 YS=INKEYSZIF YS="” THEN 150 

160 IF Y$="1" THEN 440 

170 IF Y$="2" THEN 420 

180 IF Y$=“3” THEN 430 

190 IF THEN 440 

200 IF THEN 450 

210 IF * THEN 460 

220 GOTO 150 

230 GOSUB 300:G0SUB 330:G0SU8 290:G0SUB 
S;PHAASGOTO 360 

240 GOSUB 300:GOSUB 340:G0SUB 290:GOSUB 
5; SH/A:GOTO 360 
250 GOSUB 300:60SUB 
S;RWSF/I:GOTO 360 
260 GOSUB 300:GOSUB 340:G0SUB 290:G0SUB 
$; SW I/FIGOTO 360 
270 GOSUB 300:60SUB 
SyRWSF/I/AIGOTO 360 
280 GOSUB 3001GOSUB 


4B0:PRINTO640, SS; USING 
4B0:PRINTR640, PS;USING 
'S0:GOSUB 290:GOSUB 480:PRINTA640, SS; USING 
4BO:PRINTOS4O, RSFUSING 
aS0:GOSUB 290:GOSUB 4ABO:PRINTI64O,PS;USING 


330:GOSUB 290:GOSUB 4B0:PRINTI640,R$;USING 


Pequenos Investimentos 


60 


300 INPUT “NUMERO DE PERIODOS “3N 

310 INPUT “TAXA DE JUROS (X). "pts 

320 1=11/100:R$="SERIE UNIFORME Cr$ “:5S=“VALOR FUTURO.. Cr$ “ap 
$="PRINCIPAL Cr$ “:RETURN 

330 INPUT“PRINCIPAL Cr$ “;PHIRETURN 

340 INPUT“MONTANTE Cr$ “;SHIRETURN 

350 INPUT"SERIE UNIFORME Cr$ “;RWSRETURN 

360 GOSUB 470 
370 PRINTO9I0,” 
N 370 

380 IF K$="S" THEN 130 

390 IF K$="N” THEN 520 

400 G0TO 370 

4140 CLS:PRINTO74,25;X$;“(Valor Atual) e pretende investi-la por 
um certo periodo (Meses) e deseja saber qual sera o total (Valor 
Futuro) no final deste periodo com uma determinada taxa de juro 
s mensal.” :GOSUB 470:G0TO 230 

420 CLS:PRINT9/4,7$, “deseja saber quanto teria que aplicar 
(Valor Atual) para obter uma certa quantia (Valor Futuro) 
im de um certo periodo (Meses) com uma certa taxa de juros 
a1.”:GOSUB 470:G0TO 240 

430 CLS:PRINTO/3,7S, “deseja saber qual o valor final (Valor Futu 
ro) quando aplicado uma certa quantia mensal (Serie Unifor- me) 
por um determinado periodo (Meses) com uma determinada taxa de ) 
uros mensal.”:GOSUB 47016070 250 

440 CLS:PRINT973,7$;“deseja saber quanto teria que aplicar (Seri 
e Uniforme) por um certo periodo (Meses) para obter um va- lor f 
inal (Valor Futuro) com uma determinada taxa de juros men- sal.” 
2GOSUB 470:G0T0 260 

450 CLSsPRINTO74,25;"deseja saber quanto teria que aplicar(Valor 
Atual) em uma unica vez para obter o equivalente para umaaplica 
cao mensal (Serie Uniforme) em um determinado periodo (Me-ses) e 
uma determinada taxa de juros mensal.“!GOSUB 470:G0T0 270 

460 CLS:PRINTA73,7$;“deseja saber quanto teria que aplicar (Seri 
e Uniforme) por um certo numero de meses para obter um va- lor e 
quivalente (Valor Atual) em uma unica aplicacao com O mes- mo pe 
riodo (Meses) e a mesma taxa de juros mensal.”:GOSUB 4701GOTO 28 
o 

470 FOR I=1 TO 64:PRINT CHRS(95);:NEXT IEPRINTERETURN 

480 PRINTO930, “CONFIRMA OS DADOS (S/N) 7“2DS=INKEYSZIF 0$=”” THE 
N 480 

490 IF D$=“N” THEN 130 
S00 IF D$="S” RETURN 
S10 GOTO 480 

20 CLS:PRINTOS27, “mem 
PRINTSPRINT 


NOVO CALCULO (S/N) 772K$=INKEYSZIF K$=“” THE 


hoje 
no € 
mens 





ATE” BREVE OBRIGADO BYE BYE emersPRINTE 
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Tem hora que precisa ser micro. 





O Elppa Il Plus é um micro computador 
que tem macro vantagens 

feito quase artezanalmente, portanto testado 
um a um 
E isso é uma macro qualidade 
Como é feito com componentes de alta qualidade, 
dentro dos melhores padrões de Engenharia, a 
confiabilidade do Elppa Il Plus é macro. 
O custo de manutenção é micro: o único com um ano 
de garantia - macro qualidade com macro garantia 
Já com o preço acontece uma coisa interessante, 
deveria ser macro, mas quando você verifica o custo 
de uma configuração vê que é micro. 
A assistência técnica é macro - direta do fabricante 
ou através de seus credenciados. 
Ele é um Apple? compatível e dispõe de vasta gama 
de expansões e periféricos à sua disposição - 
CONTROLADOR DE DRIVE, CPIM, PAL-M, BO 
COLUNAS, SOFTSWITCH, 16K, 64K, 128K, GRAPH +, 
SUPER SERIAL CARD, SINTETIZADOR DE VOZ, 
MONITOR Ill, etc... - macro vantagem. 


Tem hora que precisa ser macro. 


Conclusão: Seja para você ou para sua empresa, 
micro ou macro, faça como a Rede Globo, a Rede 
Bandeirantes ou a Control que têm se utilizado do 

Elppa |l Plus em suas necessidades empresariais ou 
como os funcionários do Bamerindus para suas 
atividades profissionais e de lazer 

Faça como tantos outros, que estão aproveitando as 
vantagens de um micro 


que sabe ser macro na ntia 
Macro gara 


hora certa é 
Escolha o Elppa Il Plus |1 ano inteirinho. 


% a macro escolha. 
O micro macro. 


Fábrica: Rua Aimbere nº 931 - S.P. Tel. B64.0979 - B72.2134 
Show Room: Av. Sumaré nº 1.744- S.P Tel. B72.4788 


* Belo Horizonte - SPRESS 225 8988 « Porto Alegre - APLITEC 24.0465 - DB COMPUTADORES 22 5136 - EMBRAMIC 41.9760 « Rio de Janeiro - BMS 294.7728 - SISTEMA 

253.0645 - SC SISTEMAS 232 8304 » Vitória - SOFT CENTER 2235147 « Brasília - COMPUSHOW 2732128 « Curitiba - VIDEO E AUDIO 2340888 * Londrina - SET IN 

23.6183 « Recife - NC SISTEMAS 228.0160 * São José do Rio Preto - TELEDATA 332714 * São Paulo - ADP SYSTEMS 2274433 - BMK 62. 9120 - EUROPLAN 256 9188 - 
GENLOCK 212.7210 - SOLUÇÃO 287 5411 - VICTOR SHOW ROOM 8724788. 











e RAMCARD * SOFTCARD * VIDEOTERM * SOFTVIDEO SW e PROGRAMMER * PROTOCARD º INTF. DISKS 
e INTF. PRINT « SATURN 128K RAM. * SATURN 64K RAM. * SATURN 32K RAM. * RANA QUARTETO * MICROMODEM II 
e MICROBUFFER || + MICROCONVERTER II E MICRO VOZ Il  ULTRATERM E ALF 8088 CARD 
E AB00 DISK CONT E MULTIFUNCTION CARD E SUPERSERIAL 


MICROCRAFT MICROCOMPUTADORES LTDA. 
Administração e Vendas: Av. Brig. Faria Lima, 1698 - 1º andar - G. 11 - CEP 01452 
Fones (011) 2192-6986 - 815-6793 - 814-0446 - 814-1110 
Telex: (011) 21157 MCPT (BR) - São Paulo - SP - Brasil 





Microcomputadores CRAFT 
a extensão de sua mente. 





E 
ERA 
ES 
=: 


É MICROCOMPUTADORES LTDA. 


Av. Brig. Faria Lima. 1.698 - 1º andar Cj 11 CEP 01452 
Tels (011) 212-6286 e 815-6723 - São Paulo - SP - Brasil 


[Cj 





LARGA RSRS RSRSRS RAR SRA SOR R RAR SRS ARS REAR EAD 
sinclair sinclair sinclair sinci 


RARA RARO ARA A A ORAR AURA ASR A ARA RUA R SAGAS ARA RARA RA ROSAS RARO RASA RSRSRS A ARS RSRS RSRS RARO RARO RSRSRS RARO RSRSRS RA ERA RAR RARO RARAS ARAÃO 


REM 
REM acto — 


REM 

REM Waldir Ferreira de árruda 
REM Sao Paulo - SP 

REM 

REM CP 200 

REM 


SONHO DwUmnN= 


Muitas vezes quando estamos desenvolvendo algum progra- 
ma, sentimos a necessidade de localizar os IF, GOTO, LET etc. 
Para resolver isso, foi feito o programa a seguir, o qual lista na 
tela todos os comandos que se quiser. Nele, o usuário deverá 
informar o ARGUMENTO e então todos os comandos apare- 
cerão, inclusive com o número da linha. 

Depois de digitado, o programa SCAN ficará após qualquer 
outro popa que a sua numeração vai de 9966 a 9999. 
Sendo assim, é só comandar GOTO 9966 que será requisitado 
o argumento desejado. 

Por exemplo, para se pesquisar todos os IF deve-se digitar a 
letra U, pois é a tecla correspondente a esse comando. Pode-se 





TESTE SUA INTELIGÊNCIA: 


TESTE: siM NÃO 


1— VOCÊ DESEJA RESPOSTAS HONESTAS ÀS SUAS 
DÚVIDAS? . [| 


2 — VOCÊ GOSTARIA DE SABER sE UM MICRO PODE 
RESOLVER SEU PROBLEMA? 


3 — VOCÊ FICARIA SATISFEITO COM UM PROGRAMA 
QUE ATENDESSE SUAS NE! DADES SEM MODI- 
FICAR EM DEMASIA SEUS METODOS DE TRABALHO? 


4 — VOCÊ PROCURA UM CURSO DE DBASE II, 


WORDSTAR OU SUPERCALC QUE REALMENTE EN- 
SINE A UTILIZAÇÃO PRÁTICA DESTES APLICATIVOS? 
5 — VOCÊ QUER MESMO É UM BOM CURSO DE BA- 
SIC, RÁPIDO E EFICIENTE? 

6 — VOCÊ PRECISA DE ASSISTÊNCIA TÉCNICA PARA 
O SEU DIGITUS DE ESTIMAÇÃO? 

7 — VOCÊ PRECISA DE UM MICRO NOVO OU QUER 
TROCAR O SEU VELHO, QUASE NOVO, PERFEITO E 
MARAVILHOSO POR OUTRO UM POUQUINHO ME- 
LHOR? 

8 — VOCÊ ESTÁ DISPOSTO A PAGAR O PREÇO JUSTO 
POR UM SERVIÇO CORRETO? D 


AVALIAÇÃO: 

(A) SE VOCÊ RESPONDEU SIM A UMA OU MAIS DE UMA DAS PER- 
GUNTAS, VOCÊ PRECISA IR URGENTE ATÉ A TESBI INFORMÁTICA 
BATER UM PAPO COM O LIEGE OU COM O MAÉCIO. 


(B) SE VOCÊ JÁ FOI À TESBI, VOCÊ É MUITO INTELIGENTE! 





(C) SE VOCÊ VAI NA TESBI, VOCÊ É UMA PESSOA INTELIGENTE! 


(D) SE VOCÊ AINDA NÃO FOI À TESBI, NÓS ENTENDEMOS; VOCÊ 
ESTÁ COM POUCO TEMPO, NÃO É MESMO? 


TESBI INFORMÁTICA LTDA. 
BLV. 28 de Setembro 226, loja 110 — Tel. (021) 284-6949. 





REM ———— 


squisar iria que foram digitados com FUN- 
CTION, ON ERAPRICA 





EN 


REM 
REM ALDIR FERREIRA DE ARRU 


PRINT UMENTO" 
INPUT 
IF 5g="º OR 5g=" 


FAST 
GUSUB 
CLS 
PRINT 
PR ENT 


SISTEMAS +-3CAN 





cm 
cm 





mn 


Com ga Cu -Jm 


THEN STO 





AD AC A DO A TI AC O O CI 4 O 
AD Ci UC Us MD TO 


ETR E ET 


SS sPEEK X+PEER 

THEN SLOU 

THEN GOTO 3587 

K Y+256+PEEK (v+li 
| Z=Y42 TO Y+C 

IF PEEK Z=126 THEN LET Z=Z+ 


IF FEEK Z=115 THEN GOTO 
IF PEEK Z=CODE 5% THEN GOTO 


tx+11 





GOTO 

PRINT Ei” “s 

FOR Z=Y+42 TO v+C 

IF PEEK Z=126 THEN LET Z=Z+ 


IF PEEK Z=115 THEN GOTO 3995 


= 
2 

9991 PRINT 
9992 NEXT 
99935 

ssa4 

asas E 5&<38 OR CODE 5g:55 
THEN RETURN 

9995 FOR N=55 TO 63 

9997 IF DE S$=N THEN LET S&=0H 
Rã iN+152) ú 

9995 NEXT N 

asas RETURN 
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RARCRS RAR UR SRS RIR ORAR CASES RIR CR ORAR CR RUSSAS RSRS 
trs 80 trs 80 trs 80 trs 80 trs 


DORSALALRSAS RAR URS RORSAS RSRS RCA CASA CURA ORE RS GORRO RR RER CRU R SOR URSO RORS SOR CRS ORAGO SORO RSA OR CRS ORO RSRS RSRS GURI RS ROGUE RE RSRA RO RCA ICRA 


í REM 

é REM Dl e A 

ARDEM fe o a ta 

4 REM 

o REM Claudenir Claudio Domene 
é REM Sorocaba - SG 

7 REM 

8 REM CP 500 

9 REM 


Este programa trata da influência da lua sobre a geração hu- 
mana. Através dele, levando-se em conta as fases da lua, data 
do nascimento da mãe ou dos filhos anteriores é possível pre- 
ver O sexo de uma criança. Vejamos como isso ocorre. 


Para o primeiro filho, examina-se a data do nascimento da 
mãe e considera-se as seguintes hipóteses: 


a) se a lua nova ocorrer antes de se passarem nove dias, de- 
pois do nascimento da mãe, a primeira criança quer vier será 
do sexo feminino; 


b) se a lua nova aparecer somente depois de passados nove 
dias, desde o nascimento da mãe, a primeira criança será do 
sexo masculino. 


REM emma nan nan nana nn nn 
REM NOME DO PROGRAMA 
REM 
REM 
REM 
40 CLSSPRINT CHR$(23) :PRINTO344, “LUA NOVA“2450, “AUTOR CLAUDENIR 
CLAUDIO DOMENE“9SBB, “EMBRATEL - SOROCABA” 
20 AS=INKEYSEIF HEN 20 
30 CLEARICLSIR$= ENCIA DA LUA SOBRE A GERACAO HUMANA” 
40 T8=” hi 
50 PRINT TABC1O)RSIPRINT TABCLO)TE 
60 PRINTOZOZ, “Para o seu primeiro filho, examina-se a data do na 
sci- mento da mae.” 
70 PRINT TAB(10)“Para os outros filhos examina-se a data do nas 
cimento da crianca anterior.” 
80 PRINT TAB(10)“No caso de aborto e* necessario levar em conta 
para os calculos.” 
90 PRINT TAB(10)“Este programa esta” preparado para o seculo XX, 
isto e, do ano de 1900 ate” 1999 d.c.” 
100 PRINT TAB(10)“Dados retirados da revista “Almanaque do Pens 
amento'. Os dados aqui apresentados sao estatísticos.” 
110 PRINTA9I0, “TECLE CENTER). PARA CONTINUAR“IFOR I=1 TO 300:NEXT 
2PRINTAPIO, “2FOR I=1 TO 100:NEXT 13 
IF AS=INKEYS:GOTO 140 
120 CLS:PRINTOASA,“* * * UM MOMENTO ESTOU RODANDO O PROGRAMA mu 
="3DIM NHC12) 
130 DATA 4,5.5,5,5.5,6,7.5,8 
140 FOR 1=1 TO tê READ Ni 
150 DATA 0,18.5,7.5,26.5, 
14,3,21.5,14 
160 DATA 0,18.5,7.5,26.5,15.5,4.5,23, 
14,3,21.5,11 
170 DATA 0,18.5,7.5,26.5,15.5,4.5,23, 
14,3,21.5,11 
180 DATA 0,18.5,7.5,26.5,15.5,4.5,23, 
14,3,21.5,11 
190 DATA 0,18.5,7.5,26.5,15.5,4.5,23,12.5, 
14,3,21.5,11 
200 DATA 0,18.5,7.5,26.5,15.5 
210 FOR 1=0 TO so READ NACI)INEXT IZCLS 
220 PRINTOZA,R$:PRINT TABCAOITS 
230 POKE14916,3:CLS 
240 PRINTOIBA,“E' O primeiro filho (S/N)“:FS=INKEYS:IF F$="" THE 
N 240 
250 IF FSC)"S” AND FSC)“N” THENIGOTO 240 
260 IF F$="N” THEN 400 
270 PRINTO4MAB, ;:INPUT"Meus parabens qual e' a data do seu nascim 


5,141,11.5,13,13.5 
NAcioo) 
,23,12.5,1.5,20,9,28,17,6,24.5, 
.20,9,28,17,6,24.5, 
,20,9,28,17,6,24.5, 
+20,9,28,17,6,24.5, 


+20,9,28,17,6,24.5, 


LUANOVA/BAS 
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Para outros filhos, considera-se a data do nascimento da 
criança anterior, seguida das seguintes hipóteses: 

a) se a lua nova surgir antes de nove dias, depois do nasci- 
mento do filho anterior, a criança que vier em seguida terá o 
sexo contrário ao daquela que a precedeu; 

b) se a lua nova aparecer nove dias depois da data do nasci- 
mento da criança anterior, então a seguinte será do mesmo 
sexo da que a precedeu. 

Neste caso, especificamente, é necessário contar também os 
abortos e considerá-los como data de nascimento de filhos an- 
teriores. 

Os dados e o texto deste programa foram baseados na revis- 
ta Almanaque do Pensamento. 


ento “;AS 

280 IF LENCAS)()6 GOSUB 510:G0TO 270 

290 DES=HIDS(AS,1,2):MES=HIDSCAS,3,2) AES=MIOS(AS,5,2):DÍ=VAL(DE 
SIFMISVALCHES) 

300 IF D4)31 OR DIC1 OR H1C1 OR M1)12 THEN SSO 

310 A=VAL(AES)ZIF Az) OR A=4 OR A=B OR A=i2 OR A=16 OR A=20 OR A 
=24 OR A=2B OR A=32 OR A=36 OR A=40 OR A=44 OR A=48 OR A=52 OR A 
=56 OR A=60 OR A=64 OR A=68 OR A=72 OR A=76 OR A=B0 OR A=84 OR A 
=88 OR A=92 OR A=96 THEN GOSUB 560 

320 PRINTO320, ” Data do aniversario. “DES; 
1 MES UI ÇÃES GO 

330 DE=VAL(DES)ME=VAL (MES) EAE=VAL CAES) :D=DEIM=NHCME) FASNAÇAE DES 
=5.5+A-MEDN=D+93IF S(=0 THEN 5=5+29.5 
340 “A Yua nova ocorreu em 
INTe/” y” 

350 IF F$="N” THEN 440 

360 IF S(D THEN S=5+29.5 

370 IF DN)S THEN 390 

380 PRINT TAB(10)“Seu primeiro filho sera” um lindo menino”: 
B s20 

390 PRINT TAB(10)“Seu primeiro filho sera" uma linda menina“:605 
us 520 

400 CLS 

410 PRINTO2S. 
INKEYSEIF 
420 IF BSC * THEN GOTO 410 

430 INPUT"Qual a data do nascimento do ultimo filho 
280 

440 IF DNIS THEN 480 

ASO IF B$="M” THEN:5$=“men ina” 
460 IF B$=“F” THEN:5$="“men ino” 
470 PRINT TAB(10)“0 proximo sera” 
480 IF B$="M” THEN:5$=“men ino” 
490 IF B$="F” THEN:S$=“men ina” 
500 PRINT TAB(10)”0 proximo sera” “;S$:GOSUB 520 

540 CLS:FOR X=1 TO S0:PRINTOS!S, “Para data 01/03/89 digite apena 
s 010383, sem barras ok.”“:FOR I=í TO 300:NEXT I:CLS:FOR I=t TO 5 
O:NEXT I2NEXT XERETURN 

520 NH(1)=4:NH(2)=5.52:PRINT9920, “Deseja novo calculo (S/N)“;:08= 
INKEYSEIF * THEN 520 

530 AND QSC)"N” THEN 520 

sao EN 230 ELSEIPOKE 16916,07CLS:END 


“FUSINGONNT;S; PR 


eu ultimo filho e* menino (M) ou menina (F)“:B8= 


“,AS:G0TO 


“;S$:G0TO 520 


550 PRINTOS!Z,;:INPUT“Tente a data de nova 1AS:GOTO 280 
560 PRINTAZOZ,“n » * Este ano e! bissexto 
570 IF Mi=1 OR Mi=2 THEN NMCM1)=NHCM1)-1 


580 RETURN 





65 





EORORAR ORAGO RAR RARA UR RO RARE RA RAR RS URSS AAA 
sinclair sinclair sinclair sincl 


VESERESTRS SERRA REA RS RS AR 


REM 

REM 2 NC JRR E 1 lr 

R EM moreno eremita uememero urrseras comecem teses mma nrertem mesma 
REM 





REM Rio de Janeiro - RJ 
REM 

REM TK 85 

REM 


SeONoe sor 


Este programa cria uma senha que 
bloqueia o acesso à memória dos micro- 
computadores da linha Sinclair. Trata-se 
de uma pequena sub-rotina que pode ser 
alocada em qualquer posição de memó- 
ria, dentro ou fora do sistema BASIC, 
exceto na tabela de formatação de ví- 
deo, e deve ser iniciada a partir do ende- 
reço 16514, possivelmente dentro de 
uma linha REM. Uma vez acessada, apa- 
rece no setor superior esquerdo do ví- 
deo uma mensagem e um ponto de in- 
terrogação piscando em vídeo reverso e 
normal, até ser digitado o código impos- 
to, quando o sistema lista o programa 
em BASIC que estiver na RAM e retor- 
na livre ao usuário. Se isto não ocorrer, 
um NEW será executado. 

A escolha da senha deve ser feita me- 
diante consulta à figura 1. No sistema 
operacional do TK, existe uma rotina — 
SCAN KEYBOARD — que efetua uma 
varredura no teclado indentificando se 
alguma tecla, e qual delas, foi pressiona- 
da. O teclado é dividido em setores ver- 
ticais e horizontais e é a interseção des- 





Figura 1 


REM Marcelo J. Cury do âmaral 


HORIZONTAIS 
Setor 3 


LJ 











ECICAItIDIpaItIta IES 


Setor q 
VERTICAIS 
ESA 





tes setores que evidenciam as teclas. O setor vertical é de res- EFH. 


ponsabilidade do registrador H e o horizontal, do L. Assim, se 


Consulte a figura 2 e veja também o Micro Bug (MS nº 33, 


a tecla C for pressionada, o registrador L receberá FEH e o H, pág. 54) para o valor correspondente hexa de cada tecla. Con- 








nenhuma tecla mo TERRE iu 








setor 0 211111170” 
setor 1 "11111101" 
setor 2 LIA TOT 
setor 3 CTIIOITAS 
setor 4 ST TOTITA? 
setor 5 "TIO 


Figura 2 


Setor Vertical | Registro H | Hexa | Setor Horizontal | Registro L 




































nenhuma tecla “ITA 
setor 0 "11111110" 
setor 1 "11111101" 
setor 2 STO TO 
setor 3 “1110411 
setor 4 PTATO 1911 
setor 5 “TOM TA 
setor 6 PAOTULTII 
setor 7 GITA 
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; início da rotina 
; carrega HL com a la. posição de vídeo 
: B serã contador de LOOP 
; O caracter de código 9 é impresso 16 X 
; posição seguinte 

LOOP 


LD HL, (D-FILE) 
INC HL 

LD B,10D 

LD (HL),09H 
INC HL 

DINZ,* 

LD HL, (D-FILE) 
LD BC,34D 

ADD HL,BC 

LD BC, 10H 

LD D,H 

LD E,L E) 
LD HL,16514D ; endereço da tabela de formatação vídeo 
LDIR ; transfere um bloco de 16 bytes 

LD HL, (D-FILE) ) 

LD BC,67D 
ADD HL,BC 
LD BC, 15D 
LD D,H 

LD E,L 
LD HL, 16530D ; endereço da tabela de formatação 
LDIR ; transfere 

LD HL, (D-FILE) : 

INC HL 

LD BC,99D 
ADD HL,BC 
LD B,10H 
LD(HL),0AH 


; HL recebe nova posição da área de vídeo 


; HL e DE são ponteiros de transferência 
; de uma linha para vídeo 


; HL e DE são preparados como ponteiros 
; para transferir 16 bytes novamente 
; que compõe a 3a. linha de vídeo 


; nova posição no vídeo 


; imprime o caracter de código 0AH 
INC HL : posição seguinte 
DJNZ, ** ; LOOP 

LD,HL, (D-FILE) 
LD BC,80D 

ADD HL,BC 

LD B,03H 

LD (HL),0F 

LD (HL),0F 

LD (HL),8F 

LD (HL),8F 

LD (HL),0F 


: HL recebe a posição que o sinal ? ocupa 


; imprime o sinal ? 
: imprime o sinal ? em vídeo reverso 


; imprime o sinal ? em vídeo normal 

DINZ, *º* ; repete o processo 3 vezes 

CALL KEY DEC ; chama a rotina de varredura do teclado 

LD A,FF ; acumulador confere se foi pressionada 

cPH ; alguma tecla comparando com conteúdo de H 

JR Z, rot ; caso negativo volta a piscar o sinal ? 

LD A,-- aqui deve ser posto o código do set. vertical 
cPH 

JR 2,0K1 
CALL NEW 
RET 

LD A,-- ; aqui entra o código do setor horizontal 
CP L ; que é comparado 

JR 2,0K2 ; se correto vai para 0K2, lista o programa 
CALL NEW ; incorreto executa NEW 

CALL LIST ; aqui é listado o programa 

RET ; retorna ao BASIC devolve os controles ao 
operador. fim. 


; Correto? compara com o setor horizontal 
; senão executa NEW 





Segredo 


tinuando, se nenhuma tecla for pressionada, ambos retornam com o valor FFH. Isto 
significa que o usuário deve escolher uma tecla, até mesmo SHIFT, NEW LINE ou 
SPACE, e inserir seu código no endereço apontado na listagem. Além disso, deve-se 
pôr o comando USR de chamada logo após ao comando SAVE de auto-preservação. 
Assim, ela será imediatamente executada após carregar o programa. Para testar a ro- 
tina, nunca use um comando direto tipo RAND USR e N/L, pois devido à velocida- 
de em que é processada, ela interpretará a tecla de NEW LINE como o código, po- 
dendo destruir todo o trabalho. 
A tabela de formatação de vídeo é a seguinte: 


16514 80 A6 A8 AA B8 B8 B4 80 B7 AA B8 B9 B7 AE B9 B4 
16530 29 2E 2C 2E 39 2A 00 38 2A 33 2D 26 85 OF 05 00 
Observe que a rotina deve ser executada a partir do seu primeiro endereço, po- 


dendo estar em qualquer posição viável de memória. E 
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Não se enrole 
com tantas linhas. 


Use um CD-200 
e deixe.as por 
conta da Rede 

Nacional de Telex. 


As informações precisam sempre 
chegar a todos os lugares em tempo 
mínimo e com qualidade máxima. 
Porém, nem sempre é compensador 
para o usuário investir vultosas 
somas em terminais, linhas, 
modems, etc... 


Pensando nestes casos, a CONPART 
desenvolveu o conversor de dados 
CD-200. Com a instalação de 
apenas um CD-200 e mais nada, seu 
computador, seja ele grande ou 
pequeno, fica interligado à Rede 
Nacional de Telex, possibilitando 
intercâmbio de informações com 
qualquer terminal de telex 
pertencente à rede. 


O melhor de tudo é que o custo 
continua a ser o de um simples 
telex. 


Fillada 4 ABICOMP 


Consulte hoje mesmo a CONPART. 
Ligue para (021) 342.4800 


CONPART Indústria 
Eletrônica S/A. 

Estrada dos Bandeirantes, 
2447 - Jacarepaguá 

Rio de Janeiro-CEP 22700 
Tel.: (021) 342-4800 
Telex: (021) 33296 - CPTX BR 











FERREIRA 
sinclair sinclair sinclair since 


ORE EEE RR E RR TR RR E RR RIRIR IRS RCR ORAR IRSRCRARARARIR CRIA LACRTRSRLRSRSRSRSRIAS RSRS RSRSRS ASALRARIAIAAAAAIAA ASA SAS RI ASA SAS AIASAIA 


REM 

REM ESPIRAL. 
[AT ac a 
RE 
REM 
REM 
REM 
REM TK 
REM 





Aristides de Miranda Mourao 
Belo Horizonte — MG 


Ba-C 


SONS sor 


Esta rotina de impressão em espiral foi desenvolvida em um 
TK82-C e pode ser utilizada nos microcomputadores da linha 
Sinclair em diversas aplicações. Os endereços 16532, 16544, 
16557 e 16574 contêm os códigos dos caracteres a serem im- 
pressos. A rotina possui um contador de tempo e o endereço 
16583 guarda o seu incremento (1 a 255). Ela deve ficar na 
primeira linha de um programa, pois possui um CALL NN e, 
para mudá-la de posição, deve-se ajustar esta instrução. Além 
disso, introduzindo-se zero (0) nos endereços que contêm os 
códigos dos caracteres a serem impressos, o resultado será um 
CLS diferente. 

Para melhor entender a rotina Espiral, publicamos um pe- 
queno programa em BASIC. Ao iniciar este programa, na linha 


= 


AL 

PRINT “ESTA ROTINA IMPRIM 
E EM OS CARACTERES DEFI 
NIDOS NOS ENDERECOS=16552,185 

544,16557 E NO 16574" 
5 PRINT ,,"O ENDERECO,165853 C 
O ARGU- MENTO DO TEMPORIZA 

DOR 1-255" 

6 PRINT ,,“DIGITE 09/ TECLA. . 
ARISTIDES MOURAO 5 


THEN GOTO 7 




















Espiral feita a partir do 








Ea E e A 

RA usa peste 
16552, 
1Bsas/ ias 
16557,151 
16574,5 
USR 156514 
16532,0 
16544,0 
16557,0 
156574,8 


8 
“ESPIRAL” 





Programa-Exemplo 


68 


1 REM, devem ser digitados 76 caracteres quaisquer. Para a 
introdução do bloco assembler, deve-se usar o Monitor Assem- 
bler (MS nº 23). Experimente também variar o corrteúdo do 
contador de tempo (16583). 


HH 


IDEM PICTDOMO 


a 
Lo 
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HEBR Sa 











O programa a seguir lista o diretório de um disquete e per- 
mite a execução automática de um programa escolhido, desde 
que este esteja em BASIC ou Assembler. Isto é feito com a 
digitação de apenas duas teclas. 

O diretório a ser listado pelo programa é o que está no dri- 
ve O, mas é possível acessar o drive 1, com a mudança da linha 
6110 para CMD”D:1”. Caso o programa desejado não esteja no 
diretório apresentado, basta trocar o disquete e teclar ENTER 
que o novo diretório surgirá em segundos. 

A capacidade máxima de catalogação é de 60 programas por 
disquete. 


2 REMeuse PROGRAMA CATALOGO PARA EXECUCAO AUTOMATICA suma 

3 REMenam AUTCAT/BAS 
REM=ams Por: Ari Horato (031) 821 
REManes Caixa Postal 238 - 35.160 - Ipatinga 
REMmmma nono 

10 CLEAR 2000:DEFINT U-Z3DEFSTR A-GIDIM G(43)1CLS 

15 CMO“B”, “OFF” 

20 GoTO 4000 

30 CLS:PRINTA 0,” ne. 

A uum“IPRINT STRINGSC6A, “="); 

40 PRINT"TECLE O NUMERO PARA RODAR O PROGRAMA, CENTER) PARA REC 

ATALOGAR O DRIVE 'D'. (CLEAR) PARA SAIR, OU (SETA P/ CIMA) PARA 
ROLAR A TELA (SCROLL)“IPRINT STRINGS(64,95)1POKE 16916,7 

90 Z=1 1420 

100 FOR Y=0 TO 48 STEP 16:G0SUB 70004PRINT TAB(Y) AjG(Z)ptZ=Z+11 

IF G(Z)="" THEN Z=1:00T0 200 

110 NEXTEM=W+LZIF W(6 THEN PRINTEGOTO 400 

200 PRINTIPRINT TAB(28)“SUA ESCOLHA —--===) *; 

AgO Bare 

500 U=PEEK(14400):IF U=1 THEN 6000 ELSE IF U=2 THEN CMD“S” 

SOS IF U=8 THEN PRINT STRINGS(48,8);160TO 100 

540 C=INKEYSSIF C="" THEN 500 

520 IF C(“0” OR C)“9” THEN 500 ELSE PRINT Cy 

525 B=B+CrIF LENCB)(Z THEN 500 

530 Z=VAL(B) 

1000 FOR Y=1 TO LENCG(Z)MEIF MIDSCG(Z),Y,1)=" ” THEN 1200 ELSE N 

ExT 





CATALOGO PARA EXECUCAO AUTOMATIC 





AUTCATIBAS 








PARTICIPE 
COM SUA 
OPINIÃO 





CERIRCRSRIALRLRCA SACRA CRS RCRIASRCRSRCRS RIAA SR IRSRIR O 
trs G0 trs 80 trs 80 tra BO tres 


RIR ARARAS AAI RIA IAI RIAA SRTA AAA RA CRI RIA CARLA SRA RARIAS RIA SACAS ACR RS AIR SAIA CASA SERASA RSRS SAIR RUAS SUR EURO ROSE ORAR) 





[e 


EE e e a 








Caso se deseje que o AUTCAT/BAS rode após o RESET é 
só criar um arquivo BUILD para substituir a digitação. Para 
isso, digite em DOS Ativo a sequência: 

AUTO DO CAT < ENTER > 
BUILD CAT < ENTER > 

BASIC < ENTER > 

< ENTER > 

< ENTER > 

< ENTER > 

RUN “AUTCAT/BAS” < ENTER > 
BREAK 


Goro 1300 

Y=y-1 

F=LEFTSCOCZ),Y) 

CMO“B”, “ON” 

POKE 16916,0:IF RIGHTS(F,3)="CHD” THEN CMD“I”,O(Z) 
RUN G(Z) 

POKE 16916,02CLS:PRINTO 520,“UM MOMENTO, POR FAVOR.” 
D="DRIVE 1”1FOR Z=1 TO 2626(7)="“2NEXT 

V=15360:7=1 

gue 

cMorD:07 

FOR Y=í TO 43FOR X=0 TO 14 

E=E+CHRSCPEEK(V+X))ENEXT X 

IF D=LEFTSCE,7) THEN 6150 ELSE 6160 

Z=2-1260T0 6490 
IF Es” 
Z=2-1460TO 30 
B(Z)=E 


Eme 


” THEN 6170 ELSE 6180 


Z=Z+1:V=V+1S:IF 7263 THEN 30 

NEXT Y 

Vey+s 

Boto 4120 

ANSTRSC(Z) FASMIDSCA, 2, LENCA) 1)". 
IF LENCA)=2 THEN A=“0“+A 

RETURN 

REMemua Fim de Programa 


Em 


MICRO SISTEMAS é feita para você. Escreva-nos contando suas 
experiências com seu micro, qual sua área de interesse, o que você quer 
ver publicado e o que você acha de MS 

E lembre-se: todo leitor que nos escreve concorre automaticamente a uma 


assinatura anual de MICRO SISTEMAS. 

Mande logo sua opinião para a REDAÇÃO de MICRO SISTEMAS: 

Rio de Janeiro - Av. Presidente Wilson, 165/grupo 1210, RJ, CEP 20030 
São Paulo - R. Oliveira Dias, 153, Jardim Paulista, SP, CEP 01433 








RSRS REA DE SED DE A DA 
trs 80 trs 80 trs 60 trs 80 trs 
LARIRIALA CAL RAA AA RIRCRIRA RCA SRA ORAS NAS RS ASR RSA CREA RUAS RSRSRS RAR ORA GARAGE RAR ORE RAR LES RCA SAS RARCRURA ROSS RA RAR CRS RARA RO RSRSRS ROSS RIR R ROO 


00):SET(60,23): J=USR(4935) 
800 SET(41,20): J=USR(10O):SET(62,21): J=USR(105):SET(63,20): J=USR 


ERP) 





O computador, entre as 
suas inúmeras funções, apre- 
senta-se também como uma 
oportunidade de desenvolvi- 
mento de aptidões criativas. 
Como a música, por exemplo. 

Embora a composição mu- 
sical num computador seja 
pouco trabalhada e divulgada, 
ela oferece grandes momen- 
tos de sensibilidade. Isto com- 
prova que, aos admiradores 
da música, também a máqui- 
na pode proporcionar oca- 
siões de descontração e criati- 
vidade, levando conseguen- 
temente a uma apreciação 
musical. 

O programa Jesus alegria 
dos homens foi elaborado em 
BASIC e tem como objetivo 
desenvolver nos usuários de 
computador o gosto pela mú- 
sica, com demonstrações grá- 
ficas e sonoras de efeitos agra- 
dáveis. 

Em sua elaboração, o pro- 


grama apresenta várias rotinas 


audio-visuais descobertas na 
linguagem BASIC, uma ao 
acaso, outras devidamente es- 
tudadas. Entre as rotinas, des- 
tacamos o acionamento sono- 
ro e caracteres especiais e grá- 
ficos encontrados no CP-500 
(por exemplo: instrução 1830 
— utilização do ç, 4 e outros). 
O programa deverá ser di- 
gitado tal qual está na lista- 
gem, uma vez que qualquer 
erro nas instruções de 200 a 
1800 acarretará desafinação 
das notas musicais e altera- 
ção dos caracteres gráficos. 
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AC Ei ES 





En ED ES 





dose Marcelo Freitas Vilela 
Rio de Janeiro - RJ 


REM *xx JESUS ALEGRIA DOS HOMENS xx 

REM P/COMPATIVEIS COM TRS-80 MOD.I/III 
REM JOSE” MARCELO DE FREITAS VILELA 

REM RIO DE JANEIRO TELF:(021)-270 4380 
REM 

REM 


405 GOSUBÍ900 

110 Z$=STRINGS(23,” “):V=VARPTR(Z$)ELS=PEEK (V+1) EMS=PEEK (V+2) EL= 
LS+256%4MS: IFL>32767THENL=L-65536 

120 DATA 205,427,10,203,36,69,62,1,211,255,16,254,69,62,2,211,25 
5,16,254,37,92,299,2D1 

130 FORG=LTOL+22:READX:POKEG, X:NEXT: IFPEEK (16396) =2041THENPOKEL65 
26,LS:POKE16527,MS ELSE DEFUSR=L 

135 4=0 

140 FORA=ÍTOSOO:NEXTA:U=W+4 

145 FORA=192702552:PRINTOA, CHR$(95); NEXTAZFORA=832T0B95:PRINTOA, 
CHR$(95); :NEXTA 

146 FORA=51270575:PRINTOA, CHR$(95); ENEXTA 

147 FORA=256TOS11:PRINTOA, CHR$(45) ; ENEXTA 

148 FORA=576T0834:PRINTOA, CHR$(45) ; ENEXTA 

149 FORA=ÍTOSOO:NEXTA 

200 SET(14,20):J=USR(100):SET(2,149):J=USR(89):SET(3,18): J=USR(BO) 
2SET(4,16)7 J=SR(65):SET(S, 17): J=USR(75)3SET(6,47)3 J=USR(75)2SET 
(7,15)2 J=USR(S7):SET(B, 16) 7 J=USR(65) SET(9, 16): J=USR (65) ESETCÃO, 
13): J=USR(48) . 

300 SET(41,14): J=USR(52):SET(12,13): J=USR(48) :SET(13,16): J=USR(6 
5)3SET(44,18): J=USR(B0):SET(15,20): J=USR (100) :SET(Í6, 49): J=USR(B 
P)ESET(17,18): J=USR(BO) ESET(4B,17): J=USR(7S) ESET(49,16)2 J=USR(AS 
J:SET(20, 15): J=USR(S7) 

400 SET(21,46)2J=USR(65)2SET(22,147)3 J=USR(75)2SET(23,18): J=USR(B 
D):SET(24,49): J=USR(B9):SET(25, 18): J=USR (BD) ESET(26,20)2 J=USR(ÃO 
0):SET(27,21): J=USR(105):SET(28,20): J=USR (100) :SET(29,19)2 J=USR( 
89) :SET(30,23): J=USR (135) 

500 SET(34,21): J=USR(105)2SET(32,49): J=USR (BP) :SET(33,17)2 J=USRC 
75)2SET(34,18): J=USR(BO):SET(95, 19): J=USR (BP) :SET(36, 18)2 J=USR(B 
0):SET(37,20): J=USR(400):SET(38,49): J=USR(B9):SET(39,48)2 J=USR(B 
0) :SET(40,16) 2 J=USR (65) 

600 SET(41,17): J=USR(75):SET(AZ,47): J=USR(75)2SET(AI,15): J=USR(S 
7):SET(44,16): J=USR(65):SET(45, 16): J=USR(65) 2 SET( 46,43): J=USR(4B 
JESET(47,44)2 J=USR(52):SET(4B, 13): J=USR(AB) ESET( 49,16): J=USR(6S) 
:SET(SO, 18): J=USR(80) 

700 SET(54,20):J=USR(100):SET(52,19): J=USR(B9) :SET(53,18) 2 J=USR( 
80):SET(54,22): J=USR(120):SET(55,16): J=USR (65): SET(S6,47): J=USR( 
75):SET(57,18): J=USR(80) :SET(58,49): J=USR(B9):SET(59.20)2 J=USR (4 








Jesus Alegria dos Homens 
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(4100) 2SET(64,18): J=USR(BO):SET(65,16): J=USR(65) :SET( 66,13): J=USR 
(48) 2 SET(67,16)7 J=USR(65) 2: SET(48,18): J=USR(BO) ESET (69,20): J=USR( 
100): SET(70,48): J=USR(BO) 
900 SET(7Í, 16): J=USR(6S):SET(72,14): J=USR(G4)PSET(ZI,L6)E J=USR(6 
SJESET(74,18)2 J=USR(BO) E SET(75,20) 7 J=USR(400) :SET(76,48): J=USR(B 
O)ESET(77, 16): J=USR(6I) ESET(ZB,45): J=USR(S7) 2 SET(79,47): J=USR(ZS 
JESET(BO, 49): J=USR(B9) 
1000 SET(81,21): J=USR(405):SET(8B2,49): J=USR(B9)2SET(B3,47): J=USR 
(75): SET(B4,16): J=USRC6I):SET(BS,48): J=USR(BO) :SET(B6,20): J=USRC 
100):SET(87,22): J=USR(4120):SET(88,20): J=USR(100):SET(89,148):J=US 
RCBO)ESET(9O,47)7 J=USR(7S) 
1100 SET(91,19)7 J=USR(B9)ESET(P2,24)7 J=USR(405) 2 SET(93,23): J=USR 
(13G)FSET(PDA, 21) E J=USR(L0S) E SET(9S, 49): J=USR(B9)ESET(96, 47) J=US 
RC 5): SET(97,48): J=USR(BO) E SET(9B, 19): J=USR (89): SET(99,18):2 J=USR 
(80) :SET(100,20): J=USR (400) 
1200 SET(101,19): J=USR(B9):SET(402,18): J=USR(BO):SET(4O3,16): J=l 
SR(6I):SET(Í04,17)2 J=USR(75)ESET(4OS,47)3 J=USR(75)ESET(406,45)2) 
=USR (57): SET(L07, 16) J=USR(6S)ESET(LOB, L6)2 J=USR (65) 2ISET(409,49) 
E J=USR(4B)ZSET(440,44)7 J=USR(S2) 
1300 SET(111,13)2 J=USR(48):SET(L42,16)2 J=USRC65)ISET(LLI,4B): J= 
SR(BO)ZSET(414,20): J=USR(Í00):SET(445,19): J=USR(B9)ISET(LLG,4B): 
J=USR (80) :SET(117,17): JEUSR(7S)ESET(LÍB,16)7 J=USR(6S) ISET(LLP,4S 
DE J=USR(S7)ESET(120,16): J=USR(6S) 
1400 SET(L24,17): J=USR(75):SET(122,18): J=USR(BO)ISET(Í23, 49) J=ly 
SR(B9):GET( 124,18): J=USR (BO) ESET(425,20): J=USR(100):SETCÍ26,21)1 
J=ISR (103): SET(L272,20): J=USR(400):SET(4,34): J=USR(B9):SET(R,3B): 
J=JSR(1IS)ESETAI ,34)7 J=USR(405) 
1300 SET(4,34): J=USR(B9)SET(S,32)2 J=USR(75):SET(6,33): J=USR (BO) 
ISET(7,34): J=USR(B9) E SET(B,33) 2 J=USR (BO) ESET(9,35)3 J=USR (400) :SE 
TC10,34): J=USR(B9):SET(11,33)2 J=USR(BO)ISET(Í2,31): J=USR (65): SET 
(13,32): J=USR (75) 
1600 SET(14,32): J=USR(75):SET(15,30)2 J=USR(57)2SET(L6, 31): J=USR( 
69)EGETCL7, 31): J=USR(6S) SET(48,28) 2 J=USR (48) :SET(49,29): J=USR(S 
EV GET(20,28)2 J=USR(48B) E SET(24,31)7 J=USR(G5) ESET(22,33): J=USR(BO 
JESET(23,95): J=USR(400) 
1700 SET(24,34): J=USR(B9) :SET(25,33): J=USR (90): SET(26,37): J=USR( 
ARO)ISET(27,31) 2 J=USR (65) :SET(28,32)2 J=USR(75) E SET(29,933) 3 J=USR( 
BO): SET (30,34): J=USRCB9) 2 SET(3L,35): J=USR (100): SET(32,38): J=USR( 
135) 2 FORA=1 TORO: NEXTAZSET(33,35)2 J=USR (400) 
1785 FORA=1LTO3O:NEXTA 
1795 FORA=ITOZO:NEXTA 
100 SET(34,36): J=USR(CLOS) 2 FORA=ÍTOZO:NEXTAZSET(35, 35): J=USR (400 
+256%100) y 
1830 IFW<(2THENCLS:GOSUBL900:PRINTOL75,7x* REPETI O *“;2POKEÍ5543 
5302POKELS544,45260TOL40:ELSE 41840 
1840 FORA=1ÍTOLS00O:NEXTAZFORA=1TOL6: J=USR(£O ):PRINTCHRS(7)2FORB= 
1TOS:NEXTBENEXTA 
1850 CLS:END 
1900 PRINTOLO,“ JESUS ALEGRIA DOS HOMENS 

Tema coral da CANTATA 447”; 
1910 PRINTOLIS, “MUSICA 1 J.S.Bach” 
1920 PRINTIPO6, “PROGRAMA 1 Jose'Marcelo de Freitas Vilela”; 
1925 PRINTOPB6,VÍ 9D7;0992,B 4”; 
1930 POKESL6350,196 
4940 RETURN 
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à RE 
e REM EESC eta TDT Ma TER RA a AC TE ES O TS 
3 R E Má erre rremtesa esresena onsrasas emnsema errei memmrtos resmas teares srs veses emas rasos msmo meses amem aeseemt aemeesto testes comes ecseet mtteeo meses taco sir sera 1 na es ares» apa 
4 REM 
à REM Mor ihisa Hoga Luis Maurício Chopard Bonilauri 
é REM Sao Paulo - SP Rio de Janeiro — Rj 
7 REM 
Gg REM Tk 85 CP SÕO 
9 REM 
Este programa foi desenvolvido num TK-85 para planeja- na precipitação média anual de cada bacia. 
mento hidráulico de mini-usinas, mas pode ser utilizado para O grande desafio no planejamento hidráulico é a determina- 
qualquer aproveitamento de curso d'água, como abastecimen- ção da vazão máxima para dimensionamento do vertedouro. 
to e irrigação. Como os pequenos cursos d'água geralmente não Neste programa, aparece a vazão máxima (normal), mas reco- 
possuem registros de vazão, foi desenvolvido um meio de trans- menda-se para o vertedouro uma capacidade máxima de no mi- 
portar os dados de outros mananciais registrados no boletim nimo 10 vezes a vazão média para cheia excepcional. Este tra- Desenvolvido para ser utilizado no CP 500 com um ou mais então digitar os números hexadecimais um por um, logo após 
fluviométrico, aplicando-os proporcionalmente. Todos os valo- — balho leva em conta que a bacia hidráulica esteja localizada em drives, este programa tem por objetivo mudar o nome e a data terminar o programa de RESET. Se tudo for digitado correta- 
res são obtidos proporcionalmente à vazão média de longo ter. área rural (mata, campina ou cultivada) e que a precipitação de disquetes usando o DOS 500. Para isso, basta colocar um mente, o monstrinho sorrirá.Com este programa pode-se tam- 


mo. À vazão média é baseada na área da bacia contribuinte e — média seja maior que 1.000 mm/ano. disquete com o DOS 500 no drive O e dar entrada com o pro- bém criar qualquer desenho, bastando apenas respeitar o 


grama em BASIC. Ao iniciar o programa, o computador irá es- número de caracteres e os hexadecimais 01, 2€, FO, Sl e OD. 


REM ESTIMATIVAS DE UAZÕOES perar o usuário entrar com um dado: 70 INPUT AS... Deve-se 


MORIHISA HOGA ++ "50 LoS":i a JAZADO MINIMA 2 





“AT 4,7; "ESTIMATIVA DE 3083" O; "UAZRO, RE 


E,2:0R - VAZÃO MED i is 
URZRO MINIMAC:AT 14,0: "5E DUER 
| REGULARIZADA; A uLAR POTENC CA: DE MINI 
RO MAXIMA";AT 21, A) DIGITE 
PODANDO o 280 IF INKE THEN GOTO 28 
“ THEN GOTO 30 290 PRINT AT A 1a RERE. E AR DUE 
“Nº THEN STOP A UTIL 7 EMM, 
300 INPUT HU 
T 6.0: "QUAL E A ARER 310 PRINT HU: Mº 
CONTRIBU-INTE * EM KMz O LET P=INT i.007+0R+HU) 
= = 30 LET PFR=2+P 
70 INPUT RD 3540 PRINT AT 13,0: POTENCIA FIR 
EO PRINT TRE S;AD." kMas ME: CiP;o KUC;AT 21.0;"POTENCIR 1 
So PRINT AT “DUAL E a P NSTALAVEL:C;PE;" EU" 
CIFITACÃO MEDIRANUAL DA BRCI 359 STOP 
* EM MMZANOO 400 CLS 
O INPUT PMA 410 PRINT 
FRINT TRAB S; PMMA: MM-ANOS ME UTIL DO 
LET DM=INT (.005+PMAJAD) LARIZACAO 
RESd 420 INPUT 
"CALCULO DA d 430 PRINT n 
440 PRUSE iaô 
«DB: "UOCE TEM | 450 CLS 
RUA-TORIO q E iso RETURN 
TEM FATOR DE R 5 
50-2"; AT 21,9; “DI 


=p 
emu 





CLS 

POKE 16561,238:POKE 16562, 190:CLEAR 1000 

FOR N=-16656 TO -16644:READ AZPOKE N,AZNEXT 

DEFUSR=-16656:N1$=""2:NL=VARPTR(NÍS) 

POKE N1,17B:POKE N1+1,48:POKE Ní+2,191 

DATA 417,145,0,1,0,0,33,0,191,205,0,70,201 

FOR F=í TO 178 

PRINTO 0,NS$s 

PRINTO 896,“QUAL O No. HEXADECIMAL “; 

INPUT ASIBS=LEFTS(AS,1)2CS=RIGHTSCAS, 1) 

PRINTA 896, STRINGS( 26," “); 

IF ASC(B$))64 THEN B$=STRE(ASC(BS)-55) 
IF ASC(C$))64 THEN CS=STRSCASC(CS)-55) 
A=VAL (BS) XL6+VALCCS) 

NS=NS+CHR$E CA) ENEXT 
MIDSC(NÍS,1, 478)=NSEX=UBR(O) 
END 


ET 





GRAFIX MX 80/100 


as impressoras brasileiras com a 
tecnologia mais vendida do mundo. 
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;"QUAL E O UOLU 
VATORIO DE REGU 





Nome /Data 





Compre para seu microcomputador, a 1º impres- 
sora matricial brasileira (compatível com todos os 
micros nacionais), que escreve fluentemente em por- 
tuguês, com todos os acentos, cedilhas e caracteres 
especiais da nossa lingua. 


Além de escrever com dezenas de tipos gráficos 
diferentes (se necessário até em japonês) em alta ve- 
locidade -100 c.p.s. com procura lógica, imprime tam- 
bém gráficos, desenhos e imagens de alta resolução; 
120 pontos/polegada. 


Venha na SACCO, conhecer as impressoras GRA- 
FIX MX 80/100, e assista uma demonstração com um 
microcomputador de 16 bits. 


000F30: 
000F40: 
000F50: 
000F60: 
000F70: 








'- THEN GOTO 160 
" THEN GOSUE 40 


000F80: 
000F90: 
O000FAO: 
000FBO: 
000FCO: 
000FDO: 
O000FEO: 


THEN SOTO 508 


"VOLUME UTIL: 
RESERVATÓRIO 






AI. Gabriel Monteiro da Silva, 1229 
J. Paulistano - Tel.: (011) 852-0799 


tt JAZAO ESTIMAD 01441 - São Paulo - S.P. 





Estimativa de Vazões Números Hexadecimais 
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CORCRSA CRIA RSRSRS RIA SACRA SAS RSRTAS SRS RARA A SAIA SRS R IA 


PR NR 0a à 075 ATOS de To o) Chegaram! 
APPLEKIT - Kit de microcomputador tipo Apple? 





i REM 

2 REMO EI 

3 R EM: so EEE a Componentes para montagem microcontrol 

4 REM , de um microcomputador Sistemas de Controles 

& REM Brmando decar O anha Filho APPLEKIT completo. SE Tels.: (011) 814-0446 e 814-1110 
iro = RJ São Paulo - Brasil. 





& REM Rio de Jane 


Ti 2001) 





Neste jogo, o número de chances que você tem para acertar gem e um som de alerta. Já quando você completa a palavra, 
a palavra segredo é praticamente o dobro do número de carac- antes que esgote as suas chances, você recebe uma mensagem 
teres que essa palavra contém. Sendo assim, quando você esgo- de parabéns. 
ta as suas chances, sem ter desvendado o mistério, você é en- Agora, atenção! Quando você erra pela primeira vez, o mi- 
forcado de uma só vez!!! cro perdoa, mas a partir da segunda ele começará a se indignar: 
Quando você tecla uma letra repetida, aparece uma mensa- VOCE DE NOVO? 






































REM FORCA S00 Z=Z+1: IFZ>2xwCTHENG600 
15 REM ARMANDO OSCAR CAVANHA FILHO So6 VTAR 4: HTAB 30: PRINT "ERRO Nx " 
TEXT : CLEAR : HOME $Z 
25 DIM R$(100) Ss10 GOTO 90 
27 VTAB 10 600 HFLOT 30,55 TO 50,55 TO 50,75 TO 
30 INPUT "FALAVRA SEGREDO “;P$ 30,75 TO 30,55 
40 HOME : HGR : HCOLOR =.3 610 HPLOT 35,58: HPLOT 45,58: HPLOT 3 
42 FOR Y = 1 TO 4: SOUND SO,15S: NEXT 5,62 TO 45,62: HFPLOT 33,70 TO 47, 
70 
45 VTAR 1: HTAR 5: PRINT "F ORCAa” 620 HPLOT 30,55 TO 20,50: HPLOT 50,55 
so HPLOT 10,150 TO 270,150: HPLOT 10, TO 60,50 
152 TO 270,152 621 HPLOT 40,75 TO 40,125: HPLOT 40,1 
60 HPLOT 17,150 TO 17,20 TO 40,20 TO 25 TO 34,145: HPLOT 40,125 TO 44, A APPLEKITISSRER 
20,55 145: HPLOT 36,90 TO 44,90: HPLOT Roy 
70 C = LEN (P$) 36,90 TO 34,110: HPLOT 44,90 TO 4 q 
8o FOR I=1TOcC:HFLOTTZÃx*I+ãa8B,i 6,110 
20 TO 7 4 I + 43,120: NEXT 22 VTAER 5: HTAB 10: PRINT "VOCE DE N 
87 VTAR 2: HTAER JO: PRINT “CHANCES=": ovo??" 
2%40C-14 623 VTAR 8: HTAB 10: PRINT P$ 
90 VTAR Zi 625  SDUND 100,120 TO 100,120 TO 250,2 
100 PRINT “QUAL A LETRA ? ": GET L$ 40 
101 GOTO 800 630 GET U$: GOTO 20 
102 VTAR 21: HTAE J + 20: PRINT L$ 700 VTAR 5: HTAB 10: PRINT "PARABENS" 
105 =J+1i:H=O : SOUND 100,120 TO 100,120 TO 30, 
Fr 2 +* — [5 [9) 240 30,240: O 
a =1 3 c cida Soo Em E É : Reto ela APPLEKIT 65300 APPLEKIT 65400 
M$ = MID$S (P$,K,1) Bio IF R = 1 THEN GOTO iloz 
IF L$ = M$ THEN GOSUB 400 820 FOR I 1 TO R = à 
NEXT szo IF Lg$ R$(I) THEN 900 
IF H = O THEN 500 840 NEXT 
GOTO 90 Bso GOTO 102 
VTAE 15: HTAR E + 7: PRINT L$:H = 900 VTAR 23: PRINT "A LETRA "ER$S(I)S” APPLEKIT 65000] Placa de circuito impresso. [APPLEKIT 65010] Conjunto de soquetes, conectores, resistores e ca- 
JA FOI TECLADA": SOUND 50,30 TO pacitores. [APPLEKIT 65020] Conjunto de semicondutores, TTL's, LSIe memórias (As memórias EPROM são forneci- 
E=E + 1: IFE> =C THENÇZOO0 200,30 TO 30,60: GOTO 90 das com gravação). [APPLEKIT 65100] Conjunto de teclado alfanumérico com 52 teclas e componentes, circuito im- 
RETURN = presso. [APPLEKIT 65200] Fonte de alimentação tipo chaveado. Caixa de microcomputador em 
e poliuretano. [APPLEKIT 65400] Manual de montagem e teste de micro. 
APPLEKIT é 100% compatível com os cartões periféricos da MICROCRAFT. * Apple é marca registrada de Apple Inc 
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1 

e ES ir a TF a E 7h 
+ 

4 

E 

é Rio de Janeiro 

rá 

E D 8004 

bra 





Este programa destina-se a calcular o 
tempo das fases do ciclo de sinal lumi- 
noso, num cruzamento de duas ruas, e 
pode ser utilizado em microcomputado- 
res da linha TRS-80. Os cálculos mate- 
máticos aplicados se baseiam no Método 
de Wesbter, já tendo sido testado com 
sucesso em diversos pontos do Rio de 
Janeiro. 

A utilização do programa é de fácil 
compreensão por técnicos e engenheiros 
que militam nesta atividade, já que to- 
dos os INPUT (entrada de dados) são 
precedidos de mensagem específica, fa- 
cilitando o usuário, 

Após a coleta de dados no local em 
que se deseja aplicar o programa, ou se- 
ja, a contagem dos volumes de tráfego 
das diversas aproximações existentes e 
dimensões (largura) dos logradouros, 
seleciona-se o horário cujos volumes ob- 
tidos são máximos. 

Uma vez feito isto, entramos com a 
ordem de chamada destes dados, esclare- 
cendo ao operador o significado das se- 
guintes siglas: 

VAD — Volume de automóveis à direita 
VOD — Volume de ônibus à direita 
VAF — Volume de automóveis em fren- 


te 
VOF — Volume de ônibus em frente 
VAE — Volume de automóveis à es 


querda 
VOE — Volume de ônibus à esquerda 


Para cada aproximação, estes valores 
deverão ser fornecidos na ordem de cha- 
mada, mas quando não existir efetiva 
mente uma aproximação, devemos usar 
o seguinte artifício: com relação à largu- 
ra de aproximação, entramos com um 
valor qualquer maior que zero, de prefe- 
rência alto; e quanto aos volumes da 
aproximação VAD, VOD, VAF, VOF, 
VAE e VOE, um desses valores deverá 
ser maior que zero e menor que um, en- 
quanto os outros podem ser zero. 

Terminada a entrada das dimensões 
dos logradouros e os volumes de-tráfego, 
o computador pede o tempo morto 
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dorqe Manuel) Talarvalho ce cárnaldo EC 
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de Paiva Chiara 





5 CLS 
15 PRINT9L39,“PROGRAMA PARA CALCULO DE CICLO DE SEMAFORO“:PRINTA 
210,"COM DUAS FASES DE APROXIMACAO”:PRINTO343, “DETRAN-RJ N.01/83 
“3PRINTO4S9,“POR:“:PRINTOS93, “ARNALDO CHIARA É JORGE MANUEL” 

16 PRINT9728, “SETEMBRO DE 1983” 

20 FOR J=0 TO 127:SET(J,0):NEXT:FOR J=0 TO 47:SET(127, J)ENEXTEIFO 
R J=127 TO O STEP -13:SET(J,47)2:NEXTEFOR J=47 TO O STEP -1:SET(O, 
JE NEXT 

30 FOR I=í TO 2000:NEXT:CLS 

35 PRINTAS69, “FASE A”:PRINTO9O6, “FASE B” 

40 FOR J=3 TO 173SET(4S, J):NEXTEFOR J=45 TO 40 STEP -12SET(J,47) 
2NEXTIFOR J=10 TO 45:SET(J,29):NEXTIFOR J=29 TO 44:SET(45, J):NEX 
T 

SO FOR J=44 TO 29 STEP -12SET(75, J)ENEXTEFOR J=75 TO 109:SETCJ,2 
9)2NEXTIFOR J=109 TO 75 STEP -12SET(J,47)2NEXTEFOR J=17 TO 3 STE 
P -13SET(75, J)INEXT 

60 FOR J=3 TO 44:SET(SS5, J) ENEXTIFOR J=44 TO 3 STEP -L:SETC6S, JD: 
NEXT:FOR J=10 TO 109:SET(J,25):NEXT:FOR J=109 TO 40 STEP -1:SETC 
3,21): NEXT 

70 FOR J=0 TO 127:SET(J,0)INEXT:FOR J=0 TO 47:SET(L27, J)ENEXTEFO 
R J=127 TO O STEP -13SET(J,47):NEXTEFOR J=47 TO O STEP -12SETCO, 
JJ: NEXT 

75 FOR J=0 TO 1000:NEXT 

80 FOR J=0 TO 2000:NEXT:CLS 

100 PRINT” APROXIMACAO 1 DA FASE A“:FOR J=0 TO 127:SET(J,3):NEXT 
ZPRINTEPRINT 

110 GOSUB 310 

120 PRINT S$,0$,YS$ 

130 Si=S:01=Q:Y1=Y 

440 PRINT SÍ“VEIC/H”, QÍ”VEIC/H”, vá 

142 PRINT“PARA PROSSEGUIR DIGITE "NEW LINE'“ZINPUT YSIIF y$=4 
GOTO 150 

150 CLS1PRINT“APROXIMACAO 2 DA FASE A“:FOR J=0 TO 127:SETC(J,9):N 
EXTIPRINTEPRINT 

140 GOSUB 340 

170 PRINT S$,0$,YS$ 

180 S2=S:02=G:Y2=Y 

190 PRINT S2“VEIC/H”, G2“VEIC/H”, Y2 

195 IF Yí)Y2 THEN Xi=Y1:PRINT“INDICE DE SATURACAO FASE A=/X1:G0T 
o 198 

196 X1=Y2:PRINT“INDICE DE SATURACAO FASE A="X1 

198 PRINT“PARA PROSSEGUIR DIGITE 'NEM LINE "“ZINPUT YS:IF y$=" 
Goro 200 

200 CLS:PRINT“APROXIMACAO 1 DA FASE B“:FOR J=0 TO 427:SET(J,3):N 
EXT:PRINTEPRINT 

210 GOSUB 340 

220 PRINT S$,0S,YS 

230 S3=5103=0:Y3=Y 

240 PRINT S3“VEIC/H”, Q3“VEIC/H”,Y3 

242 PRINT“PARA PROSSEGUIR DIGITE "NEM LINE '“zINPUT YS2IF y8=" “ 
Goto 250 

250 CLStPRINT/APROXIMACAO 2 DA FASE B“zFOR J=0 TO 1272SET(J,3):N 
EXT:PRINTEPRINT 

260 GOSUB 310 

270 PRINT S$,05,Y 

280 S4=5:04=0:Y4=Y 

290 PRINT S4“VEIC/H”, Q4”VEIC/H”, vá 

295 IF Y3)Y4 THEN X2=Y3:PRINT“INDICE DE SATURACAO FASE B="X2:60T 
o 440 
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300 X2=Y4:PRINTINDICE DE SATURACAO FASE B=X2:G0TO 410 

340 INPUT“ENTRE COM A LARGURA UTIL EM METROS”;L 

315 S=LHS254PRINT S“VEIC/H” 

330 INPUT“ENTRE COM OS SEGUINTES DADOSEVAD;VOD;VAF ; VOF ; VAE ; VOE” ; 
VI ,V2,V3,V4, VS, V6 

340 Q=1.4MVL+I.2XVD2+VI+D. DRUM. 6XVS+I. 6NVG 

350 Y=0/8 

360 5$="CAPAC.APROX.“:0$=“DEMANDA APROX.“:Y$="”IND.SATURACAO” 

390 RETURN 

410 PRINT“CALCULO DO INDICE DE SATURACAO DO CRUZAMENTO” 2 YX=X1+Xz 
SPRINT YX 

420 PRINT”TEMPO MORTO” 

430 INPUT“TEMPO "ALL RED'”;R 

440 T=R+102PRINT T “SEGUNDOS” 

450 PRINT“CALCULO DO CICLO OTIMO” 

460 C=(1.54T+5)/(1-YX)2PRINT C”SEGUNDOS” 

461 IF C)420 THEN PRINT“ELIMINE OS GIROS A ESQUERDA AFIM DE VIAB 
ILIZAR ESTE CICLO.  - PARA RETORNAR AO INICIO DO PROGRAMA DI 
GITE CONT E APERTE A TECLA "NEW LINE "“3STOPIGOTO 10 

462 FOR J=0 TO 1000:NEXT J 

470 PRINT“CALCULO DO VERDE EFETIVO DA FASE A”:VA=XLN(C-T)/YX2PRI 
NT” VA="VA”SEGUNDOS” 

490 PRINT/CALCULO DA FILA MEDIA DA FASE A” 

500 IF Y1)Y2 THEN Q=01:G0TO 520 

S10 Q=42 

520 Ri=C-VA:0=0/3600:FA=Rix0:PRINT“FA=“FA”VEICULOS” 

S40 IF Y1)Y2 THEN S=SL:GOTO S60 

Ss0 S=S2 

560 GA=(04CX3600)/(VAXS) PRINT/GRAU DE SATURACAO DA FASE A GA="G 
A 

570 PRINT“CALCULO DO VERDE EFETIVO DA FASE B”:VB=X2*(C-T)/YX:PRI 
NT” VB="VB”SEGUNDOS” 

590 PRINT/CALCULO DA FILA MEDIA DA FASE B” 

600 IF Y3)Y4 THEN K=03:60TO 420 

610 K=04 

620 R2=C-VB:K=K/3600:FB=R2xK ?PRINT“FB=“FB“VEICULOS” 

440 IF Y3)Y4 THEN Z=53:G0TO 460 

650 Z=54 

460 GB=(KXCXI600)/(VBXZ)ZPRINT“GRAU DE SATURACAO DA FASE B GB="G 


B 
670 PRINT"PARA PROSSEGUIR DIGITE "NEM LINE "“2 INPUT YSZIF Y8=" “ 
GOTO 700 

700 DIM CA(4),VAC6),FA(6) ,GA(6),VBL6),FBC6),GB(6) 

705 TA=50:FOR I=0 TO 6:TA=TA+LDECA(I)=TA 

740 VACI)=XINCCACI)=T)/YXERÍ=CACI)-VACIDEFACI)=RIXQIGACI) = (04360 
DHCACI))/(VA(I)*S) 

745 VACI)=INTCVACI))SFACT)=FACI)XSOOIFACI)=INTCFACI))SFACI)=FACI 
)/100:GA(I)=BA(I)X1DO:GACI)=INTCGACI))2GA(I)=GA(I)/100 

720 VB(I)=X2KCCACI)-T)/YXER2=CACI)-VBC TI) EFB(I)=R2NKIGB(I)=(KHI60 
ONCA(I))/(VBCI)RZ) 

725 VBCI)=INTCVBCI))SFBCI)=FB(I)*1005FB(I)=INTCFB(I))3FB(I)=FBCI 
)/100:6B(I)=GB(1)X100:6B(I)=INT(GB(I)):GB(I)=GB(1)/100:NEXT I 
730 CLS:PRINT TAB(1)“CICLO“TAB(O9)“VERDE A”TAB(17)“FILA A”TAB(2S 
J“BSAT.A”TAB(33) “VERDE B“TAB(41)“FILA B”TAB(SO)“GSAT.B” 

740 PRINT 

750 FOR I=0 TO 6 

760 PRINT TABCL)CACIDTABCLD)VALI)TABCLS)FACIDTAB(25)GACI)TAB (34) 
VBCI)TAB(4D)FBCI)TAB(S0)GBCI) 

770 NEXT 1 

780 FOR I=0 TO 120:SET(I,4):SET(I,28):NEXT IZFOR I=4 TO 28:SET(O 
, DESET(12, 1)ESETC42O, IDENEXT 1 

810 PRINT 

815 PRINT 

B20 PRINT“PARA CALCULAR OUTRO CICLO,DIGITE RUN” APERTE "NEW LIN 
Er 

830 END 





Semáforo 





ALL RED. Esclarecemos que para esse 
tempo, o programa já contém o valor de 
10 segundos. Qualquer modificação nes- 
te valor, para mais ou menos, deverá ser 
introduzida. Se o valor desejado for 10 
segundos, basta pressionar a tecla NEW 
LINE ou ENTER ou RETURN, confor- 
me o micro. 

A partir deste momento, o programa 
começa a fornecer os resultados para es- 
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ta situação: inicialmente, os tempos, fi- 
la e grau de saturação do cruzamento 
para o CICLO ÓTIMO; em seguida, o 
programa imprime na tela ou na impres- 
sora (se usarmos o comando LPRINT) 
uma tabela com todos os resultados que 
procuramos para ciclos que variam de 
60 a 120 segundos, a fim de que possa- 
mos escolher o CICLO IDEAL para o 
cruzamento em questão. z 





NiofoM Ro 


Ligue para: cinco, sete, sete — 
meia dois, dois três 


e conheça todos os tipos de suprimen- 
tos para seu computador 


e Fitas: novas e rebobinadas, 
ideais para qualquer modelo de 
impressora 

* Mídia Magnética: disketes, fitas 
e discos magnéticos 

e Etiquetas: padronizadas e 
especiais 

* Formulários contínuos 

e Móveis para CPD 


HECTRON 


Suprimentos para Computadores Ltda. 


Rua Charles Darwin, 182 - cj. 5 
Jabaquara - São Paulo - SP 
Tel.: (011) 577-6223 

BIP: 3LXA (Tel.: 815-3344) 








Wr-50FT 


Comercio de Computadores, 
Perifericos e Suprimentos Ltda. 


* COMPRA E VENDA DE 
MICROS NOVOS E USADOS 
+ PERIFERICOS 

+ SUPRIMENTOS 

* SOFTWARE 

* SOFT-CLUB 


* CURSOS DE BASIC E 

ASSEMBLER PARA APPLE 
Rua Ministro Godoy, 283 

Perdizes - São Paulo 
Tel... 2630039 - CEP osoi1s 





GERIR CA CRIAR CRIS RIRIA ROS LR CA CRE RIR UR IAS SIRER 
sinclair sinclair sinclair sincl 


ERSAAAIRIRSRIRI IRS RUAS RIAS RSRS RIAA ORG RS RAA ORA ORA RURA A CRA OR SR CASA TAS RUAS A CRIAR SR ORG A CASA RR RCRA RIA RSRS RARA RORS RIA CRIA DALAI ALARGAR ÇÃO 





ce NC ED A em a TES 





Helder Rosa de álmeida 


Belem o PA 


EP Sn) 





Este é um jogo para CP-200 e compatíveis que tem por 
objetivo a acoplagem de uma espaçonave à base espacial. As 
únicas teclas necessárias são a 5 (leva a nave para a esquerda) e 
a 8 (leva a nave para a direita). O jogo começa com a nave apa- 
recendo em uma posiçao aleatória no alto da tela. Ela descerá 
continuamente e o usuário só poderá movimentá-la para os la- 
dos. 

Quanto à base, aparecerá inicialmente no centro inferior, 
movendo-se aleatoriamente para a direita ou para a esquerda, 
podendo também permanecer parada. É preciso muito cuida- 


DE ALMEIDA- 
JUNHO 21554 - 


Lopo ie! 
GUGA A 
el 


Acoplagem 


do, pois no último momento ela poderá sair de alinhamento e 
você não conseguirá cumprir sua missão. 

Os caracteres das linhas 360 e 380 devem ser feitos com o 
cursor no modo gráfico e o programa deve ser gravado com 
GOTO 430. Os três comandos POKE no início são responsáveis 
pela sequência de bips quando se dá a acoplagem, seja ela per- 
feita ou não. O POKE na linha 170 permite a utilização das li- 
nhas 22 e 23, usadas normalmente apenas para a edição de li- 
nhas de programa. O valor original do endereço 16418 é restau- 
rado na linha 415 para permitir o INPUT. 














- Programe suas férias: 
em janeiro, edição MS tradicional de JOGOS 


O Dr. Kasklin e os fagocitons O Golf O Curral O Detetive O O sobrevivente € Cowboy 

O Missão Resgate O Funde a cuca O E muitas outras atrações. Veja ainda como anda o 
mercado de jogos comerciais e algumas dicas em Assembler para você fazer seus jogos 
ainda mais interessantes. 





CORIRIAIA IA RIRA CALAR IRIA IA RIR CA SRS RAR CAIRIA CASAS DIRIA RIA RIA CARL RSR AR IRIA 





oo NC Jt 





Diniz da Pla 


Ricardo 
Vitoria = ES 








EM 
REM tr BS 
REM 





Este programa, para o cálculo analítico de áreas, tem uma 
ampla aplicação no campo da topografia. 
As variáveis, memória de vídeo e o programa em si ocupam 


10 PRINT CULO ANALITICO DA 
aREA” 
14 PRINT 
RINT COM TODAS A 
REPETIDA 


INPUT ARil! 
OLL 





NT Rig) 
ROLL 


INPUT Ai 


PRINT AiT) 
CROLL 
NEXT TI 


Auiuiom 


Turma. 
nom 


Cálculo analítico da área 
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CRI RIAIRIA RIAA SRA AO 
nelair sinclair 
CERIAIAIA CRIAR RISCA TA CAR RIRO 


RIAIA CRIAR RUAS EUR IA AIR] 
incladr sine 
CORTA CR IRIR RIR SECR CR CE CADEIA 






aproximadamente 1,5 Kbyte. Após entrar com a listagem, para 
gravar o programa, digite GOTO 200. 

Agora, introduza as coordenadas dos vértices do polígono. 
As últimas serão as primeiras, confirmando o dito popular. Por 
exemplo: x1 = 100;y1 = 200; x2 = 110; y2 = 200; x3 = 110; 
y3 = 190; x4 = 100;y4 = 190;x5 =x1 = 100;y5=y1 = 200. 
ÁREA = 100. 








« : ; ; ? 
SoftKristian 
Com o Exclusivo Azimuth Regulating System 


A Venda nos Revendedores Autorizados em todo o Pais, 


Filho 321-2555 - João Pessoa - Mesbia Curtiba - Computique / Madison / Mesbia - Londrina 

Compushop / Mesbia - Maringá - Control « PERNAMBUCO - Recite - Mestia / Souza s Computer Center e RIO DE JANEI- 
RO - Rio de Janeiro - Computique / Datamicro / Eletrodata / Eldorado / Entraivros /L artisan / Josias Studio / Joy Game 
Club/MCS Distribuidora / Mesbia / Micro Informática Micromag / Micromint / Micro News /New Video/Poliga- 
mes / Seletronix / Sinclar Pace / Space Equipamentos / String Niterói - Mesbia New Vídeo - Nova Friburgo Gachet - Volta 
Redonda - Mestia e RIO GRANDE DO SUL - Porto Agvancing / Digital /informatique / JH Santos / Mesbia - Ca- 
qi Sá - Gra Mona o Hambuo Merumega Santa Maria - india Center - Pelotas - Mesbia » SANTA 
CATARINA - Show e SÃO PAULO - São Pauto - Bucker / Comercial Sul America / Computer 











BEBER DEDE RREO E SD A E 








1 REM 

2 REii E ia CT E Cr E 

3; REM id o ça 

4 RE 

& REM lose Carlos Morand Magno 
é REM Rio di Janeiro - Rj 

7 REM 

8 REM DBGT 400 

9 REM 


Os colecionadores de MICRO SISTEMAS e outras revistas 
poderão. a partir de agora, tornar mais fácil a localização de ar- 
tigos já lidos. Este programa armazena o título, o nome da re- 
vista, a seção, a página e ainda dá um pequeno resumo do arti- 
go. Estes dados ficam armazenados, em linhas DATA, no for- 
mato: título. seção, revista, número, resumo. Uma última linha 
DATA deverá conter a palavra FIM. Caso os dados não estejam 
neste formato, haverá erro 

No vídeo. são apresentadas três opções: pesquisar, listar e 
fim. Na primeira opção não foi usado o comando INPUT para 
entrada de dados, mas INKEY'$, por ser mais versátil 

As teclas que podem ser usadas no programa são: 

e todas as maiúsculas 








e * — que move o cursor para o final do dado imediatamente 
acima de onde o cursor estiver; 
e análogo a * , só que move o cursor para baixo; 































10 CLSAP(1)=2764FOR I=2 TO 42PCI)=P(I-1)+64 NEXTEVSAS “+STRINGS( 
2,24) +CHR$(176)+CHR$(24) 1LS=CHRSC(31DIDEFINT A 

20 READ ASTIF ASC)“FIM”,S=S+LIGOTO 20 ELSE RESTOREINR=S/S:IF NR( 
VINTCNR),990 ELSE DIM MS(NR,S)IFOR I=1 TO NRIFOR Emá TO SIREAD M 
S(I1,E)INEXTINEXT 

ao CLS 

50 FOR I=15341 TO 15422:POKE 1, 102POKE 1+128,211NEXTIPOKE 15424, 
1941POKE 15487,2051PRINTO79, “INDICE DE ABSUNTOS DE REVISTAS”, 

60 PRINTOZ56,LSMIDSCSTRSC(NR),2,3)” Assuntos na memoria 


1. Pesquisa 
2. Lista 
3. Fim 


Tecle sua escolha “CHR$(94); 

90 AS=INKEYSEA=VALCAS) ZIF ACI OR AJ3,90 ELSE PRINT” “FASIFOR Imí 
TO 400:NEXT 

100 IF A=3,CLS:END ELSE IF As2,M0=L1G0TO 900 ELSE MO=0 

110 I=13PRINTO2S6,LSy 

120 PRINT 
“Assunto.. 
Secao 


PER, TE Uia 

18827 

Revista. :"B$(3)” 

Numero. “B$(4) 

130 PRINTOP(L),BSCI)CHRS(30)CHR$(176)CHRS(24); 

140 POKE 16408, 1287AS=INKEYSIIF A$="" 140 ELSE ASASC(AS) 

450 IF A=9i AND 14, I=I-1ºPRINT” “çsGOTO 130 ELSE IF AviO AND IC 
4,PRINT” “p41=1+15G0TO 130 

455 IF A=31,FOR I=1 TO 4:B$C1)=”"2C(I)=01NEXTIBOTO 110 

160 IF AJ31 AND A(P1 OR A=95,BSC(I)=BSCI)+ASIPRINT AS;CHRS(176)CH 
RSC24) ECC I)=CLI)+L GOTO 140 

470 IF A=8 AND C(I)O,C(I)=C(1)-S2PRINT VS; sBS(I)=LEFTSCBSCI),CC 
1))260TO 140 ELSE IF AS=CHRS(13),PRINTA9BO, “SYSTEM”; 2GOTO 250 
180 GOTO 140 

250 X=DIFOR I=1 TO NREC=0IW=0IFOR E=1 TO 4 

260 IF BS(E)="",C=C+12M=N+S2ELSE IF BSCEJ=MSCI,E),CuC+i 

270 NEXTIIF C=4 AND W()4,X=12GOSUB 800 

280 NEXT J:1F X=0,PRINTOZSO,CHRSC31)” 



















Indice de Assuntas de Revistas 


Bo 





CRIRCR CARA RIA RS RIA CASAS RI RO ROSI IR SA SR SRI RI RIAA TA 
trs BO trs 80 trs 80 trs 80 trs 


Esta é a triste estória 
de um C.P.D. que parou 
por falta de formulário 


Ro 


4 










e CLEAR — que limpa todos os dados que estiverem no buffer; 
e RETURN — que inicia a pesquisa. 


Não é necessário entrar com todos os itens da pesquisa, mas 
quanto mais itens inserirmos, mais específica ela será É bom 
lembrar que o computador só aceita teclas maiúsculas,exceto 
no resumo. Assim, deve-se ter cuidado na hora de colocar os 
dados nas linhas DATA. 


A opção LISTA mostra todos os dados que estiverem na 
memória de vídeo e com as teclas + e + e RETURN você po- 
derá voltar ao menu. A opção FIM pára o programa. 

O programa foi desenvolvido em um DGT-100, mas poderá 
rodar em qualquer micro compatível, desde que sejam feitas 
as alterações necessárias. A rotina de impressão do cabeçalho, 
que está na linha 50, não serve para micros da linha TRS 80 
modelo HI. 


REGISTRO INEXISTENTE”:FOR I=í TO 400:NEXT 
290 GOTO 60 
800 PRINT92S6,LS TAB(20)MSCI,3)” 
Assunto + “M$LI,1)” 
Sao + “MSCI,2)” 
Nupero 2 “MSCI,4)” 


“MECL,S) 

8a5 IF Mo=1, RETURN 

840 PRINTO96O,CHR$(94)” Proximo registro (RETURN) volta 
menu”; 

850 ASPEEK(14440):1F Amt, I=NR+LZRETURN ELSE IF Aró4,RETURN ELSE 
8so 

700 FOR I=t TO NR:GOSUB B0D:GOSUB 950:NEXT:GOTO 60 

950 PRINTO6O, CHR$(93)” volta um registro “CHR$(94)” proximo 
registro RETURN) menu” s 


960 A=PEEK(14440)21F A=32 AND I)í,I=I-2 ELSE IF A=64 AND ICNR,RE 
TURN ELSE IF Así, I=NR+í ELSE 960 

970 RETURN 

990 PRINTOZS6,LS” 


importante: os fabricantes demoram de 30 a 60 
dias para entregar qualquer pedido de formulário 
contínuo - e detestam cumprir pequenas 
quantidades de última hora. 

Com isso, todo o relatório da diretoria não 
poderá sair em tempo e o pagamento do pessoal 
da empresa está seriamente ameaçado com o 


ERRO NO ARQUIVO DE DATAS”; 
995 GOTO 995 
1010 DATA CONTROLE BANCARIO,PRG. MICRO SISTEMAS,25, "Registre os 
Yancamentos, atualize o saldo e, de quebra, adminis-tre melhor s 
ua vida em seu micro da linha TRS-B0”, CRIPTOGRAFIA, ART., MICRO SI 
STEMAS, 25 
1020 DATA unda parte do artigo CRIPTOGRAFIA, publicado na pa 
g. 42 do No.24. sistemas criptograficos via computador e 
a origem doDES, o mais utilizado internacionalmente” 
1070 DATA MINI EDITOR DE TEXTO,PRG.,80 MICRO,MAY 1983,Um mini m 
icro editor de textos que usa menos que 200 bytes de 
Programa em linguagem de maquina com os comentarios e os 
ticos” 
1080 DATA SISTEMAS OPERACIONAIS, ART., MICRO SISTEMAS, 25,70s siste 
mas operacionais foram indispensaveis para o desenvolvi-mento do 
s computadores modernos. Este artigo mostra como elessurgiram 
e como funcionam” 
1090 DATA FIM 














on 
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atraso. 














n 
4 

5 Varela Correa 
E ose dos Campos 

Fá 

8 MAXXT 


Este programa foi utilizado com sucesso em cálculos de am- 


plificadores em HF 


5 HOME 
PRINT 
SFIRA 
PRINT 
DE AR 
PRINT 
PRINT 
JADA" 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 


» portanto será útil para radioamadores. 


“CALCULO DO NUMERO DE E 
Su 
"DE INDUTOR COM NUCLEO 


“DIGITE INDUTANCIA DESE 


“EM HENRY"S” 
L. 
"DIGITE RAIO DO INDUTOR 


“EM CM! 
R 
"QUAL O FIO: AUG 37/2987 





24/22/20/16" 


INPUT 
IF F = 
IF F 
IF F 
IF F 


IF 


Cálculo do Número de 


E THEN LET o. 01 
28 THEN LET O. 035 
THEN LET 0.055 
THEN LET 0.065 
THEN LET 0.075 
THEN LET D 9.085 
2eISE7 4 Del / (RºBR 


P.2BE7 * L/R 


Espiras 


RARTA DRA RO RSA URA RAIAS RASA CASA CA CRIA SR URS RSRSRS RO RCRA RAS 


apple apple apple apple apple ar 
DER LRLA ARCA SEARA RCA CEO RS RUA SRAR CRE EORS RAR URSS SR CASE RASURAS ORARS RUAS RCA UR RUA ÇÃ RO URSS OCR RUA CRS EUR UR SRA RAROS RUAS ASR OR URCA CASES RSRS RESTAR 





Basta informar a indutância desejada, o raio do indutor e o ti- 
po de fio. O resultado é para apenas uma camada de espiras. 


140 
145 
200 


205 


206 
210 
213 
220 
225 
230 
240 
245 





246 


250 
255 


260 


263 


270 


Cl 


= S.O07E5 / D 
c 
(MO +) *C+B) *C+cC 
=(C+€(C+ A) *C+B 
| EG - kk 4 EL) 
IF <C — 0) « 0,005 THEN GOTO 
200 
= 0 
GOTO dio 
HOME 
PRINT "INDUTANCIA=":L;" HENR 
vs 
PRINT 
PRINT "NUM DE ESFIRAS =":N 
PRINT 
PRINT "RAIO DO INDUTOR =";Rs 
" CM” 
PRINT 
PRINT "FIO AUG "5F 
FRINT 
FRINT "PARA CONTINUAR DIGITE 
«CONT:" 
FRINT "PARA TERMINAR DIGITE 
FIM” 
INPUT A& 
IF A$& = "CONT" THEN GOTO 5 
IF Ag « >» MPIM" THEN GOTO 
240 
PRINT "FIM PROGRAMA" 
END 





O happy-end ficou a cargo do SISTEMA DATAFORM DE ENTREGA IMEDIATA 
DE FORMULÁRIOS CONTÍNUOS, um departamento exclusivo da DATA RIBBON, 
produtora das mais perfeitas fitas impressoras do mercado, O SISTEMA DATAFORM 
DE ENTREGA IMEDIATA é o maior distribuidor de formulários contínuos do País e 
já nasceu como um eficiente serviço de 5.0.5., perfeito para entregar qualquer 
pedido, seja ele de 1, 10, 100 ou 1000 caixas de formulários. 

Com o SISTEMA DATAFORM DE ENTREGA IMEDIATA, você não corre o risco 
de ficar sem formulários no seu C.P.D. - pois estoque e rapidez de entrega são 
qualidades que não faltam aos seus vendedores, fornecendo as melhores e mais 
famosas marcas de formulários continuos do mercado. O Sr. Anibal, vendedor de 
DATAFORM, na foto acima, confere essa verdade. 

O SISTEMA DATAFORM DE ENTREGA IMEDIATA tornou-se a maior rede 
distribuidora de formulários, justamente pela preocupação com que atende cada 
cliente e ao atendimento personalizado, marca registrada de seu trabalho. Os nossos 
amigos acima, salvos pela agilidade e profissionalismo da DATAFORM, podem 


garantir esta afirmação. 


Em horas de emergência, ou em compras normais, utilize-se da eficiência do 
SISTEMA DATAFORM DE ENTREGA IMEDIATA DE FORMULÁRIOS 


CONTÍNUOS. 


DATA RIBBON Ind. de Fitas Impressoras Lida. 





Apple Propaganda 


SP - Rua Lord Cockrane, 775 - Ipiranga/SP - CEP 04213 - PABX (011) 9143.2266 - Telex (011) 34.224/24143 
RJ - Rua Senador Dantas. 75 - 20º «j. 2015/16 - Centro/RJ - Tels, (021) 220.3465/220.7483 
BH - Rua Selenio, 264 - sala 202 - Tel. (031) 334.4768/334.7721 
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4 
si 


INICIAÇÃO AO BASIC 
Fox/Fox — Cr$ 9.900,00 


Escrito em estilo fácil, destina-se especialmente aos principiantes 
que não tenham acesso aos micros, mas que desejem familiarizar-se 
com os conceitos de programação. 

ra ser aplicado a qualquer computador que use a linguagem 
BASIC. 

Um texto divertido que aceita a possibilidade do leitor não ter 

experiência anterior. 


CP/M — GUIA DO USUÁRIO 
Hogan — Cr$ 15.900,00 


Escrito para usuários com bom nível de conhecimento, este 
livro considera a história e funções do CP/M, bem como os comandos 
próprios o usuário. Inclui o CP/M-86, sistema operacional basea- 
do no 8086 e 8088. 


INTRODUÇÃO AOS MICROCOMPUTADORES — Vol, O 
Osbome — Cr$ 12.500,00 

Livro para principiantes em microcomputação. Conceitos básicos 
sobre todos os Micros: como funcionam e o que eles podem fazer. 
Introduz o leitor nas linguagens de programação, códigos binários e 
aritmética, lógica, temporização, memória e como usá-los. 


APPLE II — GUIA DO USUÁRIO 
Poole — Cr$ 23.900,00 


Este é o melhor e mais completo manual do APPLE II. Contém 
descrição de todas as instruções, comandos e funções. 

ima seção cial em p avançada e aplicações. Claro 

e objetivo. Obrigatório para os usuários do APPLE II. 


PROGRAMAS USUAIS EM BASIC 

* Programas usuais em Basic TRS-80 
* Programas usuais em Basic APPLE Il 
* Programas em Basic 

Cr$ 12.000,00 cada 


Vários pr práticos para pequenos negócios, pequenas em- 
presas de Engerharia, Administração, Matemática e Economia Domés- 
tica. 


MANUAL DE BASIC PARA O APPLE Il 
Peckham — Cr$ 13.900,00 

Manual prático que possibilita ao leitor aprender a programar o 
APPLE Il através de exercícios dirigidos. 

Escrito em linguagem fácil, acessível, é dirigido a hobistas e 
estudantes. 


VISICALC 
Castlewitz — Cr$ 12.900,00 


Um guia prático para utilização do software VISICALC. Através 
da leitura deste manual, o usuário poderá obter o máximo em quali- 
dade e eficiência em sua atividade. 


CONSTRUA SEU PRÓPRIO MICROCOMPUTADOR Z-80 
Ciarcia — Cr$ 22.900,00 

Este guia prático mostra como você pode construir seu próprio 
microcomputador, baseado no famoso microprocessador o ZILOG 
Z-80. 

Cada subsistema do computador é inteiramente explicado com 
base em informações testadas, de forma que o leitor possa facilmente 
modificar o sistema. 

De muito fácil compreensão. 


PROGRAMAÇÃO TK 82-83-85 CP-200 
Hurley — Cr$ 5.900,00 


Aprenda a programar seu TK e CP 200 muito facilmente. 
Programas em BASIC, jogos, gráficos etc., para principiantes. 
Fácil assimilação e compreensão. 


MICROPROCESSADORES — Conceitos Básicos 
Osbome — Cr$ 13.500,00 
A mais compreensiva e atualizada introdução ao sistema de 
mil rocessadores expressa da maneira mais simples de entendé-los. 
'onceitos básicos. 


JK LIVROS-McGRAW HILL 


Ao escolher um livro de Computação, opte sempre pelo melhor! 
McGraw-Hill - LIVROS DE QUALIDADE 


LIVROS UNIVERSITÁRIOS E CURSOS 


PROGRAMAÇÃO COM BASIC 
Gottfried - Cr$ 13.500,00 


A finalidade deste texto é fornecer um curso de programação de 
E prtadores, empregando a estrutura padronizada da linguagem 

Proporciona ao leitor condições de organizar e escrever com 
eficiência programas de computador. 350 problemas resolvidos. Desti- 
na-se a todos os cursos do ensino Superior e Técnico que utilizam o 
BASIC como linguagem. 


COMPUTADORES E PROGRAMAÇÃO 
Scheid — Cr$ 13.500,00 


Quinhentos e trinta e cinco problemas resolvidos e vários progra- 
mas usando a lin; FORTRAN, BASIC, PASCAL e PL/1. 

Introdução à Computação e Programação, destina-se ao mercado 
Universitário em cursos de Engenharia e Administração. 


CIÊNCIA DOS COMPUTADORES 
Tremblay — Cr$ 13.500,00 


Introdução à Ciência dos Computadores, usando uma abordagem 
ALGORTTMICA, 
= Livro texto dirigido à Engenharia, Matemática e outras áreas 
ins. 
Best Seller nos EUA. 


CIRCUITOS DIGITAIS E MICROPROCESSADORES 
Taub — Cr$ 14.900,00 


Livro texto dirigido a Escolas de Engenharia, para as áreas de 
projetos lógicos e microprocessadores. 
Concentra-se nos modelos 8080/8086 com detalhes para aplica- 
s em outras unidades. Explicações claras sobre FLIP-FLOPS e 
EMÓRIAS. 
UM BEST SELLER! 


PROCESSAMENTO DE DADOS — Volume | 


PROCESSAMENTO DE DADOS — Volume Il 
Verzello — Cr$ 10.900,00 cada 


- Mantendo-se independente de qualquer tipo de linguagem ou 
tipo específico de máquina, os autores discutem integralmente todos 
os assuntos da área, informando como usar a tecnologia de compu- 
tação para resolver problemas de processamento de dados. 

Livro introdutório para Economia, Administração e Engenharia. 


LIVROS EM INGLÊS 


dBASE II — GUIA DO USUÁRIO — Townsend 


Lançamento, em português, para novembro de 1984. 

Manual bastante informativo e claro, para profissionais que queiram 
utilizar o dBASE II. 

Iniciando com Installation e passando por Information File Organiza- 
tion, Records e Databases, o leitor será conduzido para Sistemas, 
Programação estruturada e outros tópicos mais avançados. 


LOTUS 1-2.3 — Edward Baras 


Guia prático para utilização e acompanhamento do software Lotus 
12.3, especialmente desenvolvido para as áreas financeiras e de negó- 
cios em geral, 

Por intermédio de instruções simples, claras e de fácil compreensão, 
tanto para profissionais como para iniciantes, poder-se-á obter perfeita 
integração e resultados harmoniosos na consolidação de retornos e 
previsões financeiras. 


1) I Á Rua Tabapuã, 1105 - CEP 04533 - Telefone 881-8604 - 
É º Itaim-Bibi - São Paulo - Brasil. 
Hu 


Rua Evaristo da Veiga, 55 - cj. 1309 - CEP 20031 - 
Fone.: (021) 262-4756 - Rio de Janeiro. 


* Em todas livrarias do Brasil ou diretamente. 
Solicite catálogos. 








FEEL EE ER E E O SS 
sinclair sinclair sinclair since 


CIRARIALARARA RIA RUAS RSRS RÇÃS RSRS S ASA RUAS RU RSRS REAR OCR S RCA SRA RO RAR CRA RS RSA CRLA CRIA SACADO RCRLASAIA CALAR LARS RORSA CALAR ASRARARAAO 





1 REM 

é REM ES EE SETE TRI RT) 

8 REM eos ssa sas sr serem no sas cr o o cm me 
Sergio EsF.Vale 
Sao Jose dos Campos - SP 
TK 85 





O programa Propaganda, escrito para micros da linha Sin- 
clair, tem por objetivo a apresentação de frases, textos explica- 
tivos de programas, instruções de jogos e coisas do gênero. 

Para efetuar essas apresentações, ele se aproveita de um in- 
teressante efeito vi: (gráfico), onde as letras, quatro vezes 
maiores do que as normais, parecem caminhar pela tela do mi- 
cro, cobrindo toda a sua extensão da direita para a esquerda. 

Para carregar o programa, utilize o MICRO BUG criando 
uma linha 1 REM com 130 caracteres. Em seguida, entre com 





ETA essa TA a 
= JT pes JE o) O 





a PTP ASS SA a pe GS GH 


PESTE 
Lea CO po e Md = 
Eeuteenpor gs 


[op 


14 E pe q pe pe pe E GD 
a 4 
m 


CHEM CRE Gu CUBE TD E 


e E es TU MM = 3 ED =p Tea nã 


Bloco Assembler 


[ETR ERRA] np Laps 


OI 
ODE 
TO) 


T 
[m 
s 
IE 
5 


Em 
ofetelo(e! 


Propaganda 
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o bloco Assembler e retorne ao BASIC. 


As linhas 110 e 120 da listagem em BASIC formam uma ma- 
lha de tempo que pode ser modificada para aumentar ou dimi- 
nuir a velocidade de execução do programa. Aliás, você poderá 
alterar como quiser a parte em BASIC, usando, é claro, a ima- 
ginação para criar novos efeitos visuais. 


O próprio programa pedirá a frase. Entre com ele e veja o 
que acontece. 





MILRONEWS: 
A INFORMÁTICA RO 
ALLANCE DE SUR EMPRESA 


sorTuarE PERIFÉRICOS mero 


COMPUTADORES 


(1 
lo + 


CURSOS 





Comércio e Serviços Ltda 
R. Assembléia 

10/ gr. 3317 

Ed. Centro 

Cândido 

Mendes 

CEP: 20011 - RJ 

Tel.: (021) 252-9420 














Para matemáticos, físicos, engenheiros ou estatísticos que possuam um 
TRS-80 mod. !l, um programa que plota gráficos de funções do tipo Y= f(X) 








Gráficos em vídeo 


objetivo deste programa é 
plotar o gráfico, em 
coordenadas retangulares, 
de qualquer função real do 
tipo Y= f(X), dentro de quaisquer 
intervalos de variáveis definidos pelo 
usuário. 
Desenvolvido para equipamentos da 
linha TRS-80 modelo III, o programa 
é muito simples, podendo ser dividido 
em quatro partes. 
1) Definição da função a ser plotada 
Ao iniciar sua execução, o programa 
pergunta se a função já foi definida na 
linha 280. Respondendo-se com um S 
(sim), passa-se para a próxima parte; 
com um N (não), o computador entra 
no modo de edição para que se coloque 
a função na linha 280, devendo-se 
reiniciar a execução do programa. 
2) Determinação dos intervalos das 
variáveis 
O programa pede que sejam 
fornecidos os intervalos de X e Y, 
dentro dos quais a função será plotada. 
Por exemplo, se a função for Y= X+2 
(Y=X?), não haveria sentido em definir 


um intervalo de Y como sendo de -4a 4, 


uma vez que essa função não gera 
números negativos. O programa critica 
esses intervalos para que entradas 
inválidas não provoquem erros 
posteriormente. Dessa forma, são 
intervalos inválidos: -1 a -3,4a 4,20a 
15 etc. (O valor inicial deve ser sempre 
menor que o final). 
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Paulo Sávio da Silva Costa 
DSL TA TSE TA aaa 


165 REM -——————————— 
1720 FOR 1=0 TO 127 

) 3 NEXT J : SI=C-À : FI=B+SI 
175 REM 
180 REM 
185 REM — a 
190 FOR X=A TO B STEP « 
EN 210 

200 I=INTC(X+S1)/F1x128+0.5)-1 


GOSUB 


POINT CL, THEN RESET CL,9) FI 


O NEXT X 2 6OTC O 
1% REM 

220 REM mes FIM DA 
1 REM 

230 PRINT 9B96,“INTERVALO DE 
RINT d946,“DESEJA  QUIROS 
AO PRINT d960,070 A “sB; 
MRAFICO(CS/N)2”; 

150 GS=INKEYS É TF G5=/N” 

260 A=0 : B=A : C=A 2 D=A : E=A 

1 RR, J=A GoTo 20 
à REI 

270 REM 

75 REM 

BO Y=SINCX) 
920 RETURN 


3) Desenho dos eixos coordenados 

De posse dos intervalos de X e Y, 
o programa calcula a posição na tela em 
que deverão estar os eixos coordenados, 
desenhando-os em seguida. 
4) Construção do gráfico 

O intervalo de variação de X (AX) é 
dividido em 128 partese o de Y (AY) 


TCI,K) = NEXT 1 
SJ=F-D 


PARTE PRINCIPAL DO PR 


PRINT 


DEFINICAO DA FUNCAO A SER 


FOR J=D TO 41 : SET(WU,J 
FJ=E+SJ 


» CONSTRUCAO DO GRAFICO PROPRIAMENTE DITO «-— 


280 : IF Y<=D-F/2 OR Y>=E+F/2 TH 


4 INTC(Y+SJ)/F JX42+40,.5) = IF 
Er CLçald 


OGRAMA man 
PRINT D921,“ INTERVALO DE Y 


985,0; A “5E; 2 PRINT a1010, 


THEN END ELSE IF 6%4€)75” THEN 250 


=A 2 K=A 2 W=A 2 X=A 2 Y=A 


PLOTADA « 





em 42. Faz-se X variar dentro do 
intervalo com um incremento de 
AX/128, e a cada valor de X calcula-se 
o correspondente Y através da função 
já definida. O programa verifica se o Y 
encontrado está contido em 4 Y. Se 
não estiver, passa para um novo X; se 
estiver, determina a posição relativa de 


Y na tela e plota um bloco gráfico na 
posição correta através da instrução 
SET (1,J), onde 1 e J são calculados 
a partir de X e Y, respectivamente. 


OBSERVAÇÕES 


e Quando o gráfico da função se 
superpõe aos eixos coordenados, ou 
mesmo os intercepta, a interseção entre 
eles é apagada da tela, a fim de que se 
possa distinguir se o gráfico coincide 
com os eixos ou se está fora do intervalo 
abrangido pelos eixos. Caso o usuário 
queira eliminar esse acende-apaga, 

basta retirar toda a instrução IF da 

linha 200, substituindo-a por SET (1,J). 
e Todas as variáveis do programa 

(com exceção de 1,J, K e W) são de 
simples precisão. Desejando-se utilizar 
intervalos para os quais a simples 
precisão não seja suficiente, deve-se 
incluir a instrução DEFDBL A-F,S,X,Y 
na linha 20, transformando em dupla 
precisão todas as variáveis de simples 
precisão. 








Paulo Sávio da Silva Costa estuda Física na 

Universidade Federal do Ceará e trabalha na 
Escola Teénica do Ceará como programador, 
atividade que vem exercendo há alguns anos. 








Elotrer 








REM *—* 
4 REM x PLOTTER *—* 

REM x x» - x 
3 REM - PAULO SAVIO DA SILVA COSTA x 
10 REM * RUA BARBOSA DE FREITAS, 678 APTO. 201/F n— 
tê REM x FORTALEZA CEARA" CEP 60000 * 
14 REM n—* * 
O CLEARÍDDOO = CLS N 
PRINTIAB(1S5)BS 2 PRINI TABCS7) 


DEFINT I-K,M =: B$=5TRING$S(28,45) E PRI 
PLOTADOR DE GRAFICOS” 
DEFINTIU A FUNCÃO NA LINHA 





A GUARDIAN GARANTE 





ENERGIA ATODA PROVA. 


GERADOR ELETRÔNICO GERATRON: 


SISTEMA NO BREAK GUARDIAN: 





30 PRINT TABCIS) BS 2 PRINT 9326,JA” 


280 « No p 

40 AS=INKEY 
N THEN 40 

50 PRINT Nãao : PRINT d4ó4: 

NT = EDIT 280 

60 PRINT d449 ; + INPUT “FORNECA O 

FORMATO A,B“;A,E 

0 IF À B THEN PRINT 9498, STRINGS( 





THEN PRINT 


80 PRINT 9513,77; 2 INPUT “FORNECA O 
FORMATO A,B”;D,E 


20 IF D)=E THEN PRINT d562, STRINGS( 


> REM 

100 REM ———> 
105 REM 

110 CLS = K=41 : W=0 
B<=0 THEN U=127 : GOTO 140 

120 FOR X=A TO B STEP C 2 Y=X+C = IF 
125 REM 
130 REM 
4135 REM 
140 IF EJ0 AND D>=0 THEN 170 EL 
o 470 

150 FOR x=D E STEP FF: + :F 
E IF ABS(X))Y THEN K=K-í 
155 REM - - 
160 REM ———»> DESENHO DO 





8, 


8, 


SIM” 


DEFINA 


GOTO 40 ELSE IF AS 


A FUNCAO : PRI 


INTERVALO DE X DESEJADO NO 


32 


GOTO 60 ELSE C=(B-A) 


INTERVALO DE Y DESEJADO NO 


YÍ 


e) 


J 


) 


FIXOS COORDENADOS 


THEN W=W+1 


GOTO 80 ELSE F=(E-D) 


CALCULO DA POSICAO DO EIXO Y NA TELA «< 


IF B50 AND A)=0 THEN 140 ELSE IF Ac<O AND 


NEXT x 


CALCULO DA POSICAO DO FIXO X NA TELA < 


E IF DXO AND Ec=0 THEN K=0 : GOT 


THEN K=K-1 : NEXT X ELS 
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PARAGRAFICS 


Geratron* 


À PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
de emergência. Capacidade de 200 VA, 
com autonomia de até 90 minutos. 


ESTABILIZADORES DE TENSÃO 
GUARDIAN: À PROVA DE 
FLUTUAÇÕES E TRANSIENTES. 
Ultra-rápidos, protegem o seu CPD con- 
tra variações da rede ematé +22% ees- 
tabilizam a saída em + 1%. Incorporam 
filtro na entrada, transformador isolador 
echave detransferência paraa rede. Ca- 
pacidade de 0,25 KVA a 100 KVA 


a 


Estabilizadores de tensão 





Sistemas No Break 


À TODA PROVA. 

E a solução mais completa contra tran- 
sientes, flutuações e falta total de ener- 
gia. A Linha Básica varia de 2,5 KVA a 
100 KVA. Dispõe de chave estática de 
saída e utiliza técnica de sintese da for- 
ma de onda senoidal, com tiristores 

A Linha Econômica é a solução para 
CPD's de pequeno porte, com capacida- 
de de 0,25 KVA a 5 KVA 

Não deixe que a má qualidade da energia 
elétrica estrague os seus programas 
Ligue agora mesmo para a Guardian 


(6 GUARDIAN 


Equipamentos Eletrônicos Ltda. 

Rua Dr. Garnier, 579 

Rio de Janeiro - CEP 20.971 

Rio: PABX (021) 261-6458 - (021) 201-0195 
Telex: (021) 34.016 

São Paulo: (011) 270-3175 


REPRESENTANTES EM TODO O BRASIL 











Alcançada a órbita, você partirá para 
a segunda parte da missão, isto é, entrar 
em contato com uma base estrelar, para 
a instalação de um canhão laser e um 
reator, o qual deverá chegar a salvo ao 





Você é o capitão de uma nave espacial, viajando a 100 milhas por segundo. 
Sua missão: instalar um canhão laser e um reator numa base fora do sistema solar... 


Listagem 2 

















deiti 1:"L"CLEAR : INPUT B:IF E “SHI B=B+(N/] 
seu destino. PAUSE "ATRAQ >APAUSE "MUT 00)+E: PALISE 
asi ênci i VE“SPAUSE "S TO ALTA": “NOVA VELOCI 
Após a transferência automática do VA NAVECYO D GOTO = DADE:" "5 E: 
programa, você deve responder ao input EVE"IPAUSE 40: C=B+5280/360 GOTO 40 


ATRACAR NA" D: B=C F M$="R"LET 
PAUSI A SO: D=A-B: IF 0=1 =B- 10: GOTO 
C UB 2 Goto 10 40 
o SS: IF D<=0GOSUB es: IF M$="P* 
2: PAUSE “COMAN THEN 990 
DOS" a 90: IF M$= e 
A: ACELERAR! 35: Q=D: LET B=B 
R GOTO 40 
95: 1F lr="D 
THEN Z00 
100: 1F M$= 


INICIAL ?. (Maiores detalhes sobre isso, 
no final do artigo). Então, o computa- 
. dor mostrará a relação dos comandos 


Aventuras espaciais eo 
no PC-1211 


velocidades, uma pelo computador e ou- : TT 
tra por você. A primeira trata-se da velo- ã C 150 
cidade da base, tomando-se como refe- Vad : E 
rência sua nave, o que nos leva a dizer 62:1F D>130 
que a base FIXA move-se na sua direção. EE SA 
A segunda significa a velocidade inicial STANCIA DA E 


110: BEEP 1:PAUSE 
"4 COMANDO 
INVAL IDO +44" 


: RETURN 
AUSE "DISTA 
NCIA TA BASE 
: "PAU a 
METROS” 
GOTO 61 

GI R=R+1.9554: 
IF R>Z0LET R 
=) 





4: TF L=ILET 0º INPUT” y 
GoTo so = “Mg: 

do-gráfico ilustrando (em proporções re- õ 
ais) sua distância da base ou uma mensa- 10: R=R+ 15920: A ed 
IF F>1000 e MA 
INPUT Cy 


Ricardo Silva de Macêdo 


GUTO 75 
que seu caça rumará em direção à base. 
5: GÓSUB 910:0= GUTO 75 
gem informando que sua distância é 5 GOTO 75 
e e = 
“MANTENHA O = "Ms: 


nSE” 63:IF D>120 

Logo depois, será mostrado um pseu- 
64: IF Doo 
maior que 150 metros. 65: 1F D>100 
GOTO TS 


Antes de entrar com novos comandos 


este artigo, vamos mostrar 
três programas, nos quais são 
utilizados os símbolos dispo- 
níveis no PC-1211, com o ob- 
jetivo de gerar pseudo-gráficos que tradu- 
zem uma animação, possibilitando, as- 
sim, com um pouco de imaginação, em- 
preender-se verdadeiras viagens espaciais. 


Os JOGOS 


Como capitão de uma nave estrelar, 
você tem uma missão vital a cumprir, 
para a segurança de seu planeta. Esta 
missão é dividida em três partes, sendo 
que a primeira delas consiste em orbitar 
o planeta e, para tal, você deve tomar 
alguns passos. 

Primeiro, carregue o tanque do seu 
caça com o combustivel necessário, des- 
de que não exceda 3000 galões. Em se- 
guida, entre com a velocidade final, ne- 
cessária para a saída do planeta. 

Bem, você agora está pronto para ven- 
cer a gravidade do planeta, o que depen- 
derá da quantidade de combustível e ve- 
locidade final. Se você obtiver sucesso 
será avisado por beep 2 e deverá, em se- 
guida, entrar com sua nova velocidade 
para orbitar. Essa velocidade colocará a 
nave na faixa de 96 a 104 milhas acima 
da terra. 

Dependendo da nova velocidade, qua- 
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Listagem 1 





SI “K"CLEAR + 76: IF D>SOLET Z 
PAUSE "ORBIT $=" ni 
At” 77: IF D>60LET 

10: INPUT "COMBU $s=" x 
STIVELCGALS. 78: IF D>7OLET Z 
22"; FSIF FZ $=" A 
OOOPAUSE 79:1F D<XSOLET Q 

s="u=)" 
80: IF D>8OLET Q 
s=" =)" 
20: INPUT "VELOC 81: IF D>90LET Q 
IDADE FINAL? S=" 0 um)" 
“PVE V=V 2100 82: IF D>9SLET Q 
o s=" =>" 
ZO:FOR X=1TO V B3: PAUSE 28508 
40: BaC Ii mev) 90: IF F<=OTHEN 
S0:F=F-(B"2.6): 210 
IF F<OLET F= 100: IF D>100IF X 
[o] <STHEN 220 
60: D=(10+B)-32. 110:1F D>9SIF DX 
2:IF IXOLET 1OSTHEN 230 
D=0 200:NEXT X 
Ti IF DX1OLET 2 
g= 
72: IF D>9LET 28 
73:IF D>20LET Z ”  vº:PAUSE 
s=" 0" " ri PAUSE * 
*":PAUSE + 
211: IF F>OPAUSE 
"VELOCIDADE 
MUITO BAIXA" 





74: IF D>3OLET Z 


$=" " 


75: IF D>40LET Z 


s=r " 


tro situações podem surgir. Uma veloci- 
dade baixa, por exemplo, causará uma 
rápida perda de altitude e você cairá na 
terra, voltando ao início da jornada. Se 
a velocidade incorreta causar uma lenta 
perda de velocidade, você será informa- 


FPRUSE "VOCE 280: N=N+CD-(M/16 
N2 CONSEGUI 10)) 
O": PAUSE "VE 290: IF N><D-10) 
NCER A GRAVI IF N<cD+10) 
DADE": GOTO 1 BEEP 1: PAUSE 
o "VELOCIDADE" 
215:IF F<=OPAUSE : PAUSE "CORR 
“ACABOU O CO ETA"SGOTO 36 
MBUSTIVEL “: 


o 
GOTO 10 300: IF N<OTHEN 3 
220: PAUSE + o” so 
310: IF N<D-9 


PAUSE" 

"IPAUSE * PRINT “ALTUR 
ATRITO ELEVA AsrSNSIF SON 
DO!": PAUSE * N=-1 THEN 330 
SEU FOGUETE 320: IF N>D+9 

QUE IMOU-SE "+ PRINT "ALTUR 
GOTO 10 ArSNIGOTO 34 

230: BEEP 2:PAUSE 
"ORBITA ALCA 
NCADA” 

250: 1=D+1610: 
PAUSE “NOVA 
VELOCIDADE": 
PAUSE "PARA 
ORBITAR" 

260: INPUT "vELOC 
IDADE? “5 Vibt= 
V/2. 235 

270:M=<4, 002E147 
CWº2))-C6370 
E3+1) 


o 
330: PAUSE “VELOC 
IDADE ALTA": 
GOTO 260 
340: PAUSE "DESCI 
DA LENTA": 
GOTO 260 
350: PAUSE “VOCE 
FOI DESTRUID 
O":GoTO 5 
360:CHAIN "2" 





do pelo computador com a mensagem 
“velocidade alta”. Por outro lado, se vo- 
cê ganhar altitude, o computador mos- 
trará a mensagem “descida lenta”. En- 
tretanto, se a velocidade for correta vo- 
cê orbitará o planeta. 
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observe que, se a velocidade mostrada 
for negativa, você ultrapassou a base, 
para corrigir entre com uma aceleração 
negativa. 

Após mostrado o pseudo-gráfico, ao 
lado, coloque o comando escolhido e, 
em seguida, pressione ENTER. 


Os comandos são os seguintes: 

A: Usado para aumentar a aceleração 
em porcentagem, por exemplo, sc 
você entrar 10, como resposta ao 
input ACELERAÇÃO (%)?, terá 
sua velocidade acrescida de 10%. 

D: Distância entre sua nave e o veículo. 

R: Diminuição mínima de velocidade. 

R2: Diminuição de metade da velocida- 
de. 

RT: Diminuição total da velocidade. 

F: Final das manobras, o programa se- 
rá transferido. 

A partir da mensagem de congratula- 
ção, você seguirá para a mais emocio- 
nante das três etapas, que consiste em 
levar a carga para um outro setor fora 
do sistema solar, enfrentando difícei 
obstáculos. 


Agora você mostrará toda a sua perí- 
cia em combate. Sua nave viaja a 100 
milhas por segundo e o setor a ser atra- 
vessado possui 1500 milhas, donde se 
conclui que a batalha durará 15 segun- 
dos (não reais). Assim que o programa 
inicializar, você deve responder ao input 
INICIAL?, com um número entre O e 1, 
dando início a batalha. Os comandos a 
serem utilizados são: 

S: Fará sua nave subir. 
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BOM TRABALHO 

7a 

12: 1F AvI99 
PAUSE "EXCEL 
ENTE! 

13:1F A>300 
PAUSE "VOCE 
ESTA APRUVAL 
Tt) 

14: IF A>40O 
PAUSE “SUA Y 
aog Ra Nasa” 
PAUSE “ESTA 

GARANTIDA” 

15: 1F 2600 

“FANTA 


F D>30INPUT 
Y p= 


TS: IF M3= 


INPUT 
RACAG 0% 


LempHo "E 


D: o? > descie; 
F: Comando de:ataque. 

Observe que você tem direito a dois 
comandos, no mesmo período de tem- 
po, maiores detalhes serão sentidos e 
informados respectivamente, por você e 
pelo computador. 


OS PROGRAMAS 


Agora vamos ver os comandos e ob- 
servações necessárias para o perfeito fun- 
cionamento dos programas. 

Inicialmente, deve-se ressaltar que, 
pelo fato do PC-1211 possuir 1 Kb de 
memória, é necessário, para esta aventu- 
ra, que se utilize a interface para cassete. 
Através do comando CHAIN TÍTULO 
DO PGM, podemos automaticamente 
transferir um novo programa, após o tér- 





mino do precedente, sendo este instan- 
taneamente inicializado. 

Para aqueles que não dispõe da inter- 
face, uma pequena modificação deve ser 
feita. Na órbita (linha 360), troque 
CHAIN 2 por END ;.no ataque (linha 
990), CHAIN 3 por END. 

Como o PC-1211 não possui as ins- 
truções RANDOM e RANDOMISE, para 
manipulação de jogos, foi incorporado 
ao ataque e à batalha espacial um gera- 
dor pseudo-randômico, que será ativado 
quando, em resposta ao input INICIAL?, 
for introduzido um número entre 0 e 1. 
Para novos desafios deve-se variar esse 
número. 

Depois de digitados, os programas de- 
vem ser salvos por CSAVE, seguindo 
os rótulos: órbita (CSAVE 1), ataque 
(CSAVE 2) e batalha espacial (CSAVE 3). & 
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avevrunas espacio veem E uprimento é coisa séria 


Para chamar os programas em modo 
DEF , deve-se pressionar SHIFT, segui- 











do dos seguintes rótulos: órbita (SHIFT a ho ESPAGI 
K), atraque (SHIFT L) e batalha espa- Pi Es="++ s. 
ciai (SHIFT M). ! € A Ê ar cê 


Antes de terminar, algumas observa- 
ções muito importantes. É preciso ter 
muito cuidado na introdução dos espa- 
ços (SPC), pois eles determinarão o des- 
locamento do objeto no display. Para 








verificação da correta introdução use TUI 
MEM, comparando com as seguintes re- : 70: . OTO 65 ela 
ferências: T ia a ua o RETURN 
Órbita passos: 373 o :PAUSE ss CAUSE país don E NelaET 
memórias: 46 3 “4 E js TE Soa Er 
Atraque — passos: 15 y vg 
memórias: | AL 
Batalha espacial — passos: 172 
memórias: 21 = 
Finalmente, para dar início às simu- $ gr " “;PAUS 
lações espaciais, lembre-se de posicionar k Ea HEtHISe GOTO 
a fita magnética no início da 12 PGM e IF IS tarte JenisiEr 





carregá-la com a instrução CASSET 
CLOAD (CLOAD 1). 





Ricardo Silva de Macêdo está cursando o 7º 
período de eletrônica, na Escola Técnica Fe- 
deral da Bahia, onde utiliza o PC-1211. 











Com a Centraldata 
a A entrega é imediata ....» 





: à E Mantenha o seu computador bem alimentado adquirindo 
PROGRAMAÇÃO OPERAÇÃO DIGITAÇÃO produtos de qualidade consagrada 


(COBOL & BASIC) e Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb, etc. 


PROGRAMAÇAO ESTRUTURADA (para quem ja tez Cobol) q CENTRALDATA  DISKETES; 5 14 e 8º o marca à Fita CARBOFTAS plimpressora: Globus 
SS SE ERES ho 


mM =—— co torne ETIQUETAS PIMACO — PIMATAB ct 
mM Uatameger ——emeee Ea e Fita p/Impressoras: Elebra, Elgin, Epson, 
MÉIER NITERÓI MADUREIRA 


MEDINA 127 5,309 311 AURELINO LEAL 25 EDGAR ROMERO 244 s, 301 


PASTAS E FORMULÁRIOS CONTÍNUOS Digilab, Diablo, etc. 
e Cartucho Cobra 400 





AV. PRESIDENTE VARGAS N.º 482 GR 207 TEL. (021) 253-1120 E 263-5876 
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GE 





rodada MS 








Se você tem um micro e está QRT em 80 ou 40 metros por falta de 


espaço, não sabe o que está perdendo! Amplie seus horizontes com este... 


álculo de antenas 
díipolo encurtadas 


partir de um artigo publicado 

na revista “CQ” de dezembro 

de 1981, bem como de ele- 

mentos para cálculo de bobi- 
nas fornecidos pelo colega Bruno, 
PY2DIL, desenvolvemos o presente pro- 
grama, que calcula uma antena dipolo 
de meia onda, monobanda, de tamanho 
reduzido. 

Esta é uma excelente opção, por exem- 
plo, para os colegas que desejem operar 
na faixa de 80 metros e possuam terreno 
com profundidade de apenas 25 ou mesmo 
20 metros. Embora qualquer antena en- 
curtada apresente inconvenientes, tais 
como redução de eficiência de irradia- 
ção e sintonia mais crítica, com a ROE 
se elevando a 2:1 cerca de 25 KHz para 
cada lado da frequência de ressonância, 
temos recebido ótimas reportagens, em 
80m, com uma antena de apenas 21 me- 
tros de comprimento, contra os 38,5m 
tradicionais (NOTA DE PYIDWM: Eu 
também!) 

O programa, para a lógica SINCLAIR, 
é de fácil digitação, e sua compreensão 
está ao alcance de qualquer principiante. 
Especial atenção deve ser dispensada à 
digitação das fórmulas, principalmente a 
da linha 120; o esquema mecânico da 
antena está na figura | e, para maior 
tranquilidade do usuário, fornecemos 
valores como exemplo no texto, que ser- 
vem como teste da exatidão da digitação. 

Após ser carregado no micro, a entra- 
da no vídeo é automática, surgindo logo 
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A — Comprimento total da antena, em 
função do espaço disponível. 

B — Distância entre o centro do isolador 
central e o início do enrolamento da bobina. 
L — Bobina. 

P — Ponta da antena. Vai do fim do 


a primeira pergunta: 


ANTENA 
COMP. TOTAL (M)? 


Deve ser introduzido, em metros, o 
comprimento máximo que se pode dar à 
antena. Como exemplo, digitar 25. É 
importante notar que, para maior rendi- 
mento, o comprimento total de uma an- 
tena encurtada não deverá ser superior a 
90% nem muito inferior a 50% do com- 
primento do dipolo normal para a fre- 
quência considerada. 


FREQUEN. (MHZ)? 


Para continuar com o mesmo exem- 
plo, digitar 3.7; a frequência deverá ser 
digitada em MHz, com a parte decimal 
separada por ponto e não por vígula, o 


enrolamento da bobina até o extremo da 
antena. 


IC — Isolador central, 
JE — Isolador do extremo da antena. 
CC — Cabo coaxial de descida. 





mesmo-servindo para os demais dados. 


NUMERO DO FIO? 
10,12,14,16,18 


Para a potência até de um delta 500 
pode muito bem ser utilizado o fio 14. 
Digitar, portanto, 14; observar que estão 
disponíveis apenas os números pares, de 
IO a 18. Na realidade, esses números 
não deveriam ser utilizados, pois, em 
lugar do código numérico, agora é usada 
a medida do diâmetro do condutor. Os 
mais exigentes poderão fazer as possi- 
veis modificaçoes no programa, não es- 
quecendo de modificar também a subro- 
tina. 


DIST. DO CENTRO 
ATE BOBINA(M)? 


É a distância em metros entre o cen- 
tro do isolador central e o ponto onde 
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Na figura 2 temos uma sugestão para facilitar o ajuste do comprimento da “ponta da 
antena”, para obtenção da menor ROE. Em cada lado da antena, P seria dividido em 2 seg- 


mentos (Pl e P2), sendo que P2 seria bem menor, com 2 


20 a 30 cm. e ficaria como um 


“rabicho" da antena. Isso facilitaria muito a redução (simples corte) ou aumento do tama- 
nho da ponta da antena. Observar a solda indicada no desenho. 





começa a "bobina. Sugerimos seja utili- 
zado o valor resultante da divisão do 
comprimento total da antena por 2.5; 
como 25/2.5= 10, digitar 10. Surge, 
então, a primeira resposta: 


INDUTANCIA=69 MICROH 


Já sabemos que as duas bobinas a se- 
rem usadas, uma em cada lado, deverão 
ter a indutância de 69 microhenries. 
Esse valor será, automaticamente, trans- 
ferido para a segunda parte do progra- 
ma, que calcula o número de espiras de 
cada bobina: 

BOBINA 
DIAMETRO (CM)? 
É o diâmetro externo, em centíme- 


tros, do tubo sobre o qual será enrolada 
a bobina. Na prática, poderá variar de 


2.5 a 5 cm; no nosso exemplo, vamos 
digitar 5. 

NUMERO DO FIO? 

10,12,14,16,18 


Para a potência de um DELTA 500, 
digite 18. O micro, em seguida, nos 
dará as respostas finais: 


NUM. DE ESPIRAS=43 
PONTA ANTENA=2.45 M 
CABO COAXIAL=26.76 M 


A ponta da antena é a parte que vai 
da bobina até o extremo da antena, assi- 
nalada com letra P na figura 1. O com- 
primento dado para o cabo coaxial é de 
meia onda elétrica de frequência de ope- 
ração. Temos utilizado cabo coaxial de 
75 ohms, mas pensamos que o de 50 
ohms funcione igualmente bem. 





CONSTRUÇÃO 
E AJUSTE DA ANTENA 





A antena é construída na forma habi- 
tual, com exceção das duas bobinas de 
carga, com as emendas de fio bem sol- 
dadas. 

As bobinas poderão ser enroladas so- 
bre tubos de PVC (para instalação hi- 
dráulica) de parede grossa, com diâme- 
tro externo de 2.5 a S centimetros. O 
fio deve ser de cobre esmaltado e as 
espiras enroladas juntas, sem espaçamen- 
to. Após o enrolamento, deve ser aplica- 
do um verniz ou resina epoxi (Araldite 
ou equivalente) sobre a bobina, para 
protegê-la da ação da chuva, que aumen- 
ta a sua indutância. Da mesma forma, 
não esqueça de vedar, de preferência 
com borracha de silicone, a conexão do 
cabo coaxial com o isolador central. 


Todo o cálculo é realizado prevendo 
condições ideais de trabalho (altura, 
ausência de obstáculos etc.), dificilmen- 
te conseguidas. Assim é quase certo que 
venha a ser necessário um pequeno ajus- 
te no comprimento das duas pontas, em 
busca da menor ROE. Tal ajuste depen- 
derá muito mais de paciência do que de 
conhecimento, e a sugestão da figura 2 
será bastante útil. 


De PYIDWM 





satisfação e orgulho constatamos que estamos caminhando a 
passos largos em direção aos nossos objetivos: a RODADA 
MS e a Rodada do Micro já são uma realidade, conforme atestam o 
grande volume de cartas e a significativa presença no ar. Os mais sin- 
ceros agradecimentos a todos os que nos têm prestigiado e a todos 
os que conosco colaboram, em particular a PYZAQO — Luiz. 
RODADA MS internacional! Recebida correspondência de 
CX2AK — Juan Primavesi, de Montevidéu, Uruguai, com um formi- 
dável incentivo e algumas solicitações, já providenciadas. Gracias, 
hermano; saludos cordiales y hasta siempre! h 
Correspondência recebida: do CWDF, boletim 02/84; de PY2AC 
— Alfredo, dando notícia de que vem sendo realizado, através de 
PY2AA — DS/SP, um curso de BASIC aberto a todos os radioama- 
dores interessados, a cargo de PY2EUZ — Domingos, e transmitido 
pela repetidora de 146.940 MHz, havendo previsão de um segundo 


B em, amigos, aqui está a quarta edição da RODADA MS. Com 


curso na faixa de 40m; de PYIBA — Liége, incentivando e pone 


tendo colaborações; de PY2UOI — Nilton, PY2IPL — Pedro, PT9AS 
— Antonio, PT9NR — Neuza, PY3VUV — Deco e PY2WHG — Ciro, 
com palavras de incentivo; de PY2KG — Clovis, uma fita com vários 
programas para apreciação; de PY2AQO — Luiz, com um capa 
de Registro de Comunicados para a linha Sinclair; de PYSCIG — Al- 
cione, com mais uma colaboração, que facilitará tremendamente a 
caçada ao DXCC — aguardem nossa próxima edição. 

PYSMR — Elmar envia a correção de um pequeno furo (SRI, 
HI!) no Professor Picapau. Alterar as linhas que se seguem para: 


410 A=RND(26) + 64 GOTO 450 
420 A=RND(10) + 47 : GOTO 450 
430 A=RND(47) + 43 
Grato, aa ajuda. 
Rodada MS lança um apelo (desafio?. . .): a análise da correspon- 


dência recebida mostra uma enorme incidência de solicitações de 
programas/interfaces para recepção e/ou transmissão de CW e 
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RTTY. Sabemos, de ouvir pelas faixas, que vários colegas têm desen- 
volvido trabalhos nesse sentido mas, até agora... QRT total! Vamos 
sair de trás do toco? 

CQ! CQ! Prorrogado até 15 de outubro o prazo de recebimento 
de QSLs e cartas para habilitação ao sorteio das três assinaturas por 
um ano de MS. O motivo? “Esquentar” o sorteio e dar chance a um 
número maior de colegas de participar. 

PY1BCN — Machado está organizando uma Rodada do Micro em 
VHF, para a região RJ, diariamente a partir das 20:30h, na repetido- 
ra 146.820 MHz. Grato, MAC, e que as Rodadas do Micro se multi- 
pliquem! 

A partir de agora os nossos problemas de espaço para instalação 
de antenas dipolo terminaram. O trabalho publicado nesta edição, 
de PY2AQO — Luiz, vem de encontro aos anseios de uma infinidade 
de colegas, que se vêem impossibilitados de operar em 80 ou mesmo 
em 40 m por não dispor de um projeto que resulte em uma antena 
de tamanho compatível com o espaço disponível. A solução propos- 
ta pelo Luiz é simplesmente genial: a antena é calculada a partir do 
comprimento total fornecido pelo usuário! Embora de facílima 
adaptação para qualquer micro, o Luiz teve o cuidado de enviar 
também uma versão para a linha TRS 80, qualquer modelo ou con- 
figuração, e aqueles que o desejarem poderão obter uma cópia da lis- 
aa mediante a remessa de um envelope auto-endereçado e selado 
(SASE). 

Divirtam-se construindo a antena, excelentes QSOs, compareçam 
à Rodada do Micro e até nossa próxima edição. 

HPE CUAGN 73 ES GL FM PYIDWM. 


A RODADA MS é coordenada por PY 1DWM — Roberto QUITO de 
Sant'Anna. Qualquer correspondência e/ou colaboração deve ser 
enviada aos seus cuidados, para a Av. Presidente Wilson, 165, grupo 
1210, CEP 20030, Rio de Janeiro, RJ. Contatos diretos via Rodada 
do Micro (7097 KHz, das 16:00 às 18:00h), Patrulha da Madrugada 
(7055 KHz, das 22:00 às 23:00h) ou pelo telefone (0243) 54-3355, 
ramal 594. 








CÁLCULO DE ANTENAS DIPOLO ENCURTADAS 


Ficaremos ao inteiro dispor dos inte- 
ressados, para reportagens, troca de 
idéias sobre o programa, ou maiores in- 
formações sobre a construção e ajuste da 
antena. Podemos ser encontrados diaria- 
mente na frequência de 7097 MHz, das 


16.00 às 18.00 hs, na Rodada do Micro. 
Até lá, muitos bons QSO e muitos novos 
amigos nas faixas da amizade. 

Para copiar o programa em fita casse- 
te: digitar GOTO 400, ligar o gravador e 
digitar NEW LINE (ou ENTER). 


LUIZ CARLOS NARDY — PY2400 é fun- 
cionário público aposentado e radioamador 
há 37 anos. Autodidata em programação, pos- 
sui um Dismac D8001 e um CP-200, sendo es- 
te o seu preferido. Colaborador da RODADA 
MS desde sua criação, é o comandante da Ro- 
dada do Micro. 


onsiderações sobre o programa 


10 a 90 — solicita e imprime os dados necessários ao cálculo da in- 
dutância da bobina. 

100 — manda para a sub-rotina, onde o número do fio é substituído 
pela medida do raio de sua secção transversal, em metros. 

105 — retorno da sub-rotina, seguindo até 120, onde está a fórmula 
para cálculo da indutância que, em' 120, sofre um arredondamento 
do valor. 

135 — imprime o valor da indutância. 

145 a 180 — solicita e imprime os dados necessários ao cálculo do 
número de espiras da bobina. 

200 — para coincidência de unidades, transforma metros em milíme- 
tros e, também, o raio da secção transversal do fio em seu diâmetro. 
205 a 220 — as duas fórmulas executam cálculos repetitivos, até 


que, para a indutância já encontrada, a bobina venha a ter um compri- 





mento que corresponda ao resultado da multiplicação do número de 
espiras pelo diâmetro do fio. Isso porque o enrolamento deve ser 
feito com espiras não espaçadas. Os cálculos se iniciam com o núme- 
ro arbitrário de 40 espiras para a bobina, atribuído na linha 195. 

235 — imprime o número de espiras da bobina. 

240 — calcula o re da bobina, acrescentando-lhe 10%, 
para compensar imperfeições do enrolamentó manual. 

245 — calcula o comprimento da “ponta da antena”. 

250 — imprime esse valor. 

255 — calcula o comprimento do cabo coaxial de meia onda elétrica. 
260 — imprime esse valor. 

265 — opção para novo cálculo ou saída do programa. 

300 a 330 — sub-rotina já referida. 

400 a 410 — comandos para gravar em fita cassete e fazer com que o 
programa rode automaticamente, quando carregado. 
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Um sistema cheio de inovações para quem tem um TR$S-80 modelo | e gosta de calcular 
o orçamento na ponta do lápis (ou melhor, nas teclas do computador) 








Planilha orçamentária 


alvez o leitor esteja se pergun- 
tando: “Mais um orçamento 
doméstico... 7” Sim, é outro 
desses programas, mas com al- 
gumas implementações que o tornam di- 
ferente e mais interessante. 
Desenvolvido para os compatíveis 
com o TRS-80 modelo I, nosso sistema 
apresenta um display (veja a figura 1) que 
corresponde a uma planilha de 14 assun- 
tos por 12 meses, possuindo comandos 
especiais para: 
- mostrar um trimestre a partir de um 
dado mês e referente a um dado assunto 
(modo A); 
. alterar os conteúdos das janelas da pla- 
nilha, podendo andar sobre ela (modo B); 
. fazer somas setoriais, dando como en- 
trada um mês base e um final seguidos 
de um assunto base e um final (modo C); 
. mover a planilha localmente (modo D); 
. gravar a planilha (modo E); 
. aumentar o número de assuntos até, no 
máximo, 14 (modo F). 


COMO USAR 


Rodado o sistema, vem a pergunta se 
o usuário deseja ler dados gravados ante- 
riormente ou não. Caso afirmativo, o 
sistema inicializa a planilha com o con- 
teúdo da fita; caso contrário, pede que o 
usuário dê início ao preenchimento da 
coluna de assuntos (à esquerda) com tu- 
do o que deseja especificar, como por 
exemplo: luz, gás, condomínio etc. 

Ao final, podemos voltar ao progra- 
ma principal digitando FIM mesmo que 
não tenhamos utilizado os 14 campos. 
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10 CLEAR 4000:DEFINT 1,J,K:GOSUB 2000:88=STRING$C12,32) 
20 CLS:PRINT9143,7)) PLANILHA ORCAMENTARIA (<” 
30 PRINTO460, “LER DADOS DA FITA ? (S/N) GOSUB 4500 
40 IFX$="S”,X$="":GOSUB 2500 ELSE IF X5()/N”,30 ELSE GOSUB 3500 
50º AD= =12GOSUB 1000:PRINTO6S,B$;:GOSUB 120 
60 PRINTO6S,B$;:PRINTOGS, “MODO? “;2GOSUB 45002 1FX5=“F IM, CLS:END 
ELSE IF X5="",60 
70 X=ASC(XS):IF X(65 OR X570,60 ELSE ON X-64 GOSUB 100,140,240,4 
00,510,560 
BO GOTO 60 
PRINTO6S, “MES BASE? “;:GOSUB ASOO:TF X5()77,X=VALCXS)IIF XC4 
X)12,400 ELSE ID=X:PRINTO6S, BS; 
PRINTO6S, “ASS BASE? “;:GOSUB ASOOZIF X$()77,X=VALCXS)IIE XCS 
X)14,140 ELSE AD=X 
GOSUB 3000:GO0SUB 4000 
RETURN 
PRINTA6S, STRINGS (12,153); 2 INSIDZAN=AD: J=42K=5 
PRINTAJHÍAI4KKGA, “;2FOR I=í TO 20:NEXT 
AS=INKEYSZIF A$="",470 ELSE IF AS=CHR$(19),220 ELSE ON VALCA 
$) GOTO 180,190,200,240,60 
470 PRINTOJ+43+KH64, CHR$(140);2FOR I=í TO 20:NEXT:GOTO 150 
180 IF ANJAD, AN=AN-L3K=K-2 
185 GOTO 160 
190 IF INCID+2, IN=IN+1: J=J+16 
195 GOTO 160 
200 IF ANCAD+6, ANSAN+S 2K=K+2 
205 GOTO 160 
240 IF INDID, IN=IN-12J=J-16 
215 GOTO 160 
220 IF ASSCAN)="",60 ELSE PRINTOJ+144+KX64,;2GOSUB 4500:IF VALCX 
520, VCAN, IN)=VAL(X$) ZIF ANCAD+G,K=K+27AN=AN+1 ELSE PRINTOJ+ 444 
Kx64,85; 
230 GOTO 160 
240 PRINTO6S,B$;:PRINTO6S, “MES BASE? “;:GOSUB ASOO:IF X$C)/%, TF 
VAL(X$))0 AND VAL(XS)<12, INSVAL(XS) ELSE 240 ELSE IN=ID 
250 PRINTA6S,B$;:PRINTOGS, “MES FIM? “;:GOSUB ASOO:IF X$€)/2,IF U 
AL(X$))0 AND VAL(X$)(15, IM=VAL(XS) ELSE 250 ELSE IM=IN 
260 PRINTO6S,BS; :PRINTO6S,“ASS BASE? “;2GOSUB 4500:1F X$()“”, IF 
VALC(X5)>D AND VALCXS)(15, AN=VAL(XS) ELSE 260 ELSE AN=AD 
270 PRINTO6S,B$; :PRINTO6S,“ASS FIM? “;:GOSUB 4S00:IF X$C)/2,IF U 
ALCX$)D0 AND VAL(XS)<12,AM=VALCXS) ELSE 270 ELSE AM=AN 
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280 PRINTO6S, STRINGS(12,153);:T0O=0 
290 FOR N TO AM 
300 FOR I=IN TO IM=:TO=TO+VCJ, I):NEXT 
3140 NEXT 
320 PRINTO6S,B$; PRINTO6S, TO; 
330 IF INKEY$="",330 ELSE 60 
400 PRINTO6S, BB; :PRINTOSS, “PRONTOS; 
410 AS=INKEYS:IF AB="",410 
420 ON VAL(AS) GOSUB 430,450,470,490:IF A6="5", RETURN ELSE 410 
430 IF AD>Í1,AD=AD-1:PRINTOZ4, CHR$(126);=:GOSUB 4000:GOSUB 3000 
440 RETURN 
450 PRINTOZ4,")“;2IF ID=12,ID=1 ELSE ID=ID+1 
460 GOSUB 3000:RETURN 
470 IF ADc<14,AD=AD+1ZPRINTOZA,“V”;:GOSUB 4000:GOSUB 3000 
480 RETURN 
490 PRINTAZ4,"<";=IF ID=1,ID=12 ELSE ID=ID-í 
500 GOSUB 3000:RETURN 
540 PRINTOS6S,B6; :PRINTOS6S, “PRONTO ? “;:GOSUB 4500:TF X$="57,510 
ELSE PRINTO6S, Bb; ZPRINTDAS, “GRAVANDO” ; 
520 FOR AN=1 TO 14 
530 Ab= :FOR IN=Í TO 127A6=AS+STRECUCAN, IN))+707 NEXT 
540 PRINTH-L,ASBCAN), ABENEXT 
550 GOTO 60 
560 IN=1:G0SUB 3500:G0TO 60 
1000 CLS:FOR 1=0 TO 960 STEP 128:PRINTOI, STRINGS( 64,140); NEXT 
4010 FOR 1=14 TO 63 STEP 16:FOR J=í TO 15 STEP 2:PRINTOAI+JX64, CH 
R$C191);:NEXTENEXT 
1020 PRINTO6S, STRINGS(12,159); 
1030 RETURN 
2000 DIM M$C12):FOR I=1 TO 12:READ MECI)VENEXT 
DATA“ JANEIRO”, “FEVEREIRO”, “MARCO”, “ABRIL”, “MAIO”, JUNHO? , AS 
“AGOSTO”, “SETEMBRO”, “OUTUBRO”, “NOVEMBRO”, “DEZEMBRO” 
“020 DIM ASBC14),VC14,42) 
2030 RETURN 
É FOR [=1 TO 14:5INPUTH-1,AS$C(T),ASIIFAS=7",2530 ELSE J=1:kK=1 
IF MIDECAS,K, 1)=]07,UCI, D=VAL(XE) E J=J+iXD=002K=K+Í IF J=13 














2S20 XS=XS+MIDSCAS,K,1)5K=K+1:GOTO 2510 

2590 NEXTERETURN 

3000 IN=IDIAN=AD 

3010 FOR 1=44 TO 47 STEP S6:PRINTAL+66,B$;2PRINTAL+66,MECIN);3FO 
R J=2 TO 14 STEP 22PRINTOL+66+JX64,B6;2IF VCAN, INDO, PRINTOL+66+ 
JX64,UCAN, IND; 

3020 ANSAN+LENEXT 

3030 AN=AD:IF INC42, IN=IN+Í ELSE IN=Í 

3040 NEXT 

3050 RETURN 

3500 IN=1 

3540 FOR K=1 TO 2:G0SUB 1000 

FOR I=2 TO 14 STEP 2:PRINTOIX64+66,ASSCIN);ZIF ASSCIN)="",6 
AS00:1F X6=“FIM”,RETURN ELSE IF X$€()“”,ASSCIN)=X$ 

IN=IN+1 

3590 NEXTENEXT 

3540 RETURN 

AD00 AN=AD 

AO40 FOR I=2 TO 14 STEP 2:PRINTIIX64+66,B$;:PRINTOLX64+66, ASSCAN 
DP FTF ANCÍA, ANSAN+Í 

4020 NEXT:RETURN 

AS00 X6="“3PRINT CHR$(140) ; 

A510 AS=INKEYS:IF A$="72, 45410 

4520 IF AS=CHR$(43),PRINT CHR$(8); RETURN ELSE IF AS=CHR$(8) AND 
LENCX$) 60, X$=LEFTS(XS, LENCX$)-1) ELSE IF LENCXS+AS)C12,XE=XB+A 
$ ELSE PRINT CH2$(8); RETURN 

4530 PRINT CHR$(8);AS;CHR$(140);260TO 45140 























MODO? |  [] JANEIRO 


LUZ 0 [ 


[] revEREIRO 




















Neste ponto, a planilha será mostrada 
na tela, tendo como mês e assunto base 
os de índice 1. A pergunta MODO? apa- 
recerá, então, no canto superior esquer- 
do da tela. Observação: toda referência 
a mês e/ou assunto será feita através de 
seus índices. Por exemplo: janeiro = 1, 
novembro = 11 etc. 

O sistema espera agora, como um co- 
mando, o nome de um modo de opera- 
ção ou o comando de interrupção (FIM) 
que aborta a execução. Os modos de 
operação são assim denominados: A, B, 
C, D, E ou F, sem qualquer complemen- 
to. 

Vejamos agora como funcionam os 
modos: 

A — Pede um mês e um assunto base e 
mostra a nova planilha, voltando à ques- 
tão MODO?. 

B — Pula para dentro da primeira janela 
da planilha. Nesse ponto, o modo apre- 
sentará um cursor intermitente e espera- 
rá um dos seis comandos: 

e<RETURN> — avança um espaço, 
retorna o cursor normal e está pronto 
para alterarmos o conteúdo da janela, a 
menos que não exista assunto corres- 
pondente; 

e1 — sobe uma janela; 

e2 — avança a janela à direita; 

e3 — desce uma janela; 

e 4 — avança uma janela à esquerda; 

e5 — retorna ao programa principal. 
C — Pede um mês base (<RETURN > 
= primeiro mês do trimestre), um mês 
fim ( < RETURN > = mês base), um as- 
sunto base ( <RETURN> = primeiro 
assunto do trimestre) e um assunto fim 
( < RETURN > = assunto base) e calcula 
a soma dos elementos desse setor. O to- 
tal é mostrado no canto superior esquer- 
do. Apertamos, então, qualquer tecla 
para retornarmos à rotina principal. 

D — Permite movimentarmos toda a pla- 
nilha como no modo B, ou seja, com os 
mesmos comandos de 1 a 5, mostrando 
no canto superior esquerdo o sentido do 
último deslocamento. 

E — Salva o conteúdo da planilha em fi- 
ta. Por motivos óbvios, é a rotina mais 
lenta do sistema, necessitando de 14 aces- 
sos ao gravador. 

F — Permite, caso o número de assuntos 
seja menor que 14, criar um campo para 
informações, parando no primeiro espa- 
ço disponível na coluna. Para retornar 
ao programa principal basta digitar FIM. 

Agora é só encarar a listagem e dizer 
adeus ao caderno, à régua e à calculadora. 





Helvécio C. R. Netto cursa o 5º período de 
Informática na UFRJ, tendo cursos de FOR- 
TRAN, Pascal, ALGOL, Assembler e COBOL. 
Atualmente é estagiário da Cromos Informáti- 
ca Ltda. 

Jorge Luiz Grivot Maia cursa o 5º período de 
Engenharia na PUC/RJ, tendo cursos de FOR- 
TRAN e Pascal. 
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Lotus 1-2-3 








Quando Mitchell Kapor, então cursando Mestrado de Psicologia, propôs-se a desenvolver um 
software que iria revolucionar a microcomputação, provavelmente muito poucas pessoas lhe deram 
ouvidos. O fato é que este rapaz desenvolveu, logo após, o Visitrend/Plot e vendeu o software para a 
VisiCorp por um milhão de dólares. Com este dinheiro, ele fundou a sua empresa Lotus 
Development Corp. e partiu para o desenvolvimento do Lotus 1-2-3, sem sombra de dúvida um 
produto revolucionário neste mercado. 
Assim como o VisiCalc, planilha eletrônica de primeira geração, foi o responsável pela explosão do 
microcomputador, favorecendo a expansão da linha Apple, atualmente as vendas dos micros de 
escritório, representados pela linha /BM PC, estão certamente ancoradas nos aspectos de eficiência 


e funcionalidade do Lotus 1-2-3. 





Carlos Mário Gomes de Almeida 


Lotus 1-2-3 tornou-se o pa- 
drão mundial de software 
para a linha de micros com- 
patíveis com o IBM PC, es- 
tando há semanas em primeiro lugar na 
lista dos programas mais vendidos nos 
Estados Unidos. Como se não bastasse, 
a maioria das empresas multinacionais e 
grandes grupos nacionais, sempre os 
mais atualizados, têm como política a 
adoção de micros compatíveis com o 
IBM PC e, especificamente, do 1-2-3. 

Mas afinal, o que é o 1-2-3? Resumi- 
damente, diríamos que é a mais podero- 
sa planilha eletrônica do mercado, à 
qual foram integrados os recursos de 
banco de dados e gráficos, num ambien- 
te em que os conceitos de “user friendly” 
e 'menu driven” são amplamente utiliza- 
dos. 

O “user friendly” provém do fato de 
que este software é de uso e aprendiza- 
do muito mais fácil do que outros soft- 
wares tradicionais; e o 'menu driven” jus- 
tifica-se pelo programa ser inteiramente 
guiado por menus, não havendo necessi- 
dade de se decorar comandos como co- 
mumente ocorre em certas linguagens. 

Amplamente utilizado em diversas 
áreas da empresa, o 1-2-3 possui certas 
aplicações típicas como fluxo de caixa; 
qualquer tipo de previsão ou planeja- 
mento; orçamento interno da empresa; 
orçamentos para clientes; análises de in- 
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vestimento; controle de custos; contas 
bancárias; contas a pagar e receber; pro- 
jeções e análises de tendências etc. Os 
únicos limites a serem observados são a 
memória do equipamento (640 Kb) e o 
número de registros do 1-2-3 (2048). 

À parte o 123, quando você estiver 
lendo este artigo a empresa norte-ameri- 
cana Lotus Development Corp. já terá 
lançado o Symphony, uma espécie de 
continuação do 1-2-3, que utilizará os 
arquivos de seu antecessor e terá idênti- 
co modo de operar. Como vantagens 
adicionais, o Symphony, além de con- 
tar com um banco de dados mais pode- 
roso, terá incluído processamento de 
texto em inglês e funções de comunica- 
ção. A única desvantagem será uma 
maior complexidade do programa, o que 
talvez torne recomendável que o apren- 
dizado assuma, como primeira etapa, a 
implantação na empresa do 1-2-3. 

Antes, contudo, de detalharmos os 
comandos e funções do Lotus 1-2:3, 
lembramos aos usuários de micros da 
linha IBM PC (no Brasil representados 
pelo Nexus, da Scopus; PC 2001, da 
Microtec; Ego, da Softec e Dismac-PC) 
que uma biblioteca básica de software 
em suas empresas fatalmente teria que 
compreender uma boa planilha de cál- 
culos, um banco de dados robusto e um 
processador de texto, de preferência in- 
cluindo os caracteres de nossa língua. 





PLANILHA ELETRÔNICA 


O aspecto mais poderoso do 1-2-3 é 
justamente a planilha eletrônica, que 
constitui-se seu principal fator de popu- 
laridade. O 1-2-3 pode utilizar toda a 
memória disponível de seu equipamen- 
to, e admite o uso de disco rígido para 
armazenamento externo. 


A linguagem interna do programa, 
chamada MACRO, toma a planilha ain- 
da mais potente, permitindo guardar se- 
quências de comandos que são executa- 
dos automaticamente quando demanda- 
dos ao sistema. Esta linguagem possui, 
entre outros, comandos do tipo IF- 
THEN, GOTO, sub-rotinas e menu de 
opções. 


Outro recurso bem interessante para 
os usuários deste software são as janelas, 
que possibilitam a divisão do vídeo em 
duas áreas distintas de trabalho. Tal ar- 
tifício facilita bastante no caso de pla- 
nilhas mais complexas, principalmente 
quando se quer fazer cálculos interligan- 
do regiões distantes do quadro. 


O 1-2-3 possui ainda todas as funções 
que os usuários de planilhas de primeira 
geração, como o Visicalc, gostariam de 
usufruir como largura de coluna variável 
individualmente; copiar e mover regiões 
mostradas em vídeo inverso; ponto de 
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separação de milhares; percentual; pa- 
rêntesis em números negativos e muitos 
outros. A capacidade das células se ex- 
pandirem nas células adjacentes também 
existe. 

Todas as operações dos menus pos- 
suem uma linha de explicações “on-li- 
ne”, e o 1-2-3 permite ainda a defini- 
ção de nomes para células, ou mesmo re- 
giões ou gráficos, que possibilitam cál- 
culos do tipo MARGEM = VENDAS — 
CUSTOS. Ê bom lembrar que todas as 
funções do Visicalc estão presentes no 
1-2-3 (veja algumas funções listadas no 
quadro abaixo). Títulos e formatações 
sofisticadas de impressão também são 
possíveis, e dentre estes recursos ressal- 
tamos a impressão com paginação auto- 
mática; impressão de fórmulas e impres- 
são automática da data do relatório. 





ALGUMAS FUNÇÕES 
DO LOTUS 1-2-3 





Matemáticas : 
ABS, INT, SORT, LOG, EXP,A 
COS,ATAN,MOD, RAND, SEN 


Lógicas : 
FALSE, TRUE, IF,AND,OR, 
NOT,>,>= 


Financeiras : 
NPV,FV,PV,IRR (taxa in 
terna de retorno),PMT 
(payment) 


Estatísticas : 
STD, VAR, AVG, SUM, COUNT, 
MIN,MAX 


Especiais : 
NA, ERR, CHOOSE, HLOOKUP, 
VLOOKUP 


Data : 
TODAY, DATE, DAY, MONTH, 
YEAR 











BANCO DE DADOS 


A principal vantagem neste caso é 
que os registros do banco de dados são 
os próprios dados da planilha. O 1-2-3 
aceita por planilha até 2047 registros 
(linhas) e 256 campos (colunas). A úni- 
ca limitação é a capacidade de memória 
da máquina: embora o pré-requisito para 
a última versão do Lotus seja 192 Kb, 
para um uso eficaz do 1-2-3 deve-se ter, 
pelo menos, 256 Kb. 

Algumas das funções do banco de da- 
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Um dos fatores decisivos para o sucesso de vendas que obteve o 1-2-3 foi o fato dele ter, aliado 
à sua poderosa planilha, recursos gráficos indispensáveis para aplicações empresariais. 


Line 18 Char 5 Cell 4 


192995 9559—539—5,—5,—5,—3,—5,—» —— 
Multi Contres, Inc,b 
Six Month Forecast 19844 


January, 1984 Sales am prediçted to be (in 1005): 
The average monthly increase in sales will be: 
lhe total mevenues projected for this perio 


DL) 
[ 
$18,340 


E ag sd 


Jan Feb dh QU Tot 
Sales 52,300 2 É td 


Cogs 51,375 81 
E 


Sales 83 
Cogs 51 
Profitói 


14-Feb-84 09:37 AM 


Stamt Sales Honthly, Increase 
1005) in 7) 
SMA. MA fz 


ar 
(ú 
s2 





O Symphony, próximo produto da Lotus Development Corp., integra processador de texto, pla- 
nilha de cálculo, banco de dados, gráficos e funções de comunicação. Na foto, a tela apresenta- 
se dividida em uma janela no modo processador de texto, duas janelas gráficas e três áreas da 


planilha. 


dos são: SORT (ordenação), bastante rá- 
pida e feita na própria memória, sem 
acesso a disco; pesquisa no banco de 
dados segundo variados critérios e ope- 
rações no banco de dados do tipo LO- 
CALIZAR, ELIMINAR etc. 

Existem igualmente comandos para a 
confecção automática de tabelas (DATA/ 
TABLE), que permitem a análise de sen- 
sibilidade de resultados, segundo varia- 


ções de um ou mais parâmetros, além da 
presença de poderosos recursos de esta- 
tística de bancos de dados segundo cri- 
térios pré-estabelecidos (DSUM; DAVG; 
DSTD; DVAR etc). 


GRÁFICOS 


Os recursos do 1-2-3 permitem fazer 


gráficos no vídeo e na impressora com & 
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LOTUS 1.2:3 


os próprios valores da planilha. Nos grá- 
ficos, que podem ser do tipo barras, li- 
nhas ou setores, para citar os mais u: 
dos, podem ser incluídos até seis séries 
de dados, podendo uma série conter 
mais de 300 pontos. 

Nos gráficos do Lotus, os mais varia- 
dos tipos de legendas, títulos e cores, 
além de recursos avançados como rota- 
ção, variação de tamanho, localização 
na página e tipos de letra são facilmente 
conseguidos. 

É importante ressaltar que os gráfi- 
cos do 1-2-3 podem ser impressos nas 
impressoras gráficas, em plotters e até 
nas impressoras a cores que deveremos 
ter, em breve, no Brasil. 


ÚLTIMOS CONSELHOS 


Caso você já possua ou vá adquirir o 
Lotus 1-2-3, o primeiro passo é promo- 
ver um treinamento especializado, para 
que os usuários não tenham que passar 
pelo demorado aprendizado autodidata, 
através dos complicados manuais em in- 
glês e do tutorial que ensina os concei- 
tos básicos. 

Caso, por motivos de orçamentos da 
empresa, a linha IBM PC esteja fora de 
seus planos, e você pense em utilizar um 
micro da linha Apple, a melhor alter- 
nativa é o Multiplan, um software bem 
mais avançado que o Visicalc, pois in- 


tegra uma excelente planilha a um ban- 
co de dados razoável. 

Finalmente, aos que estão agregando 
equipamentos da linha IBM PC a um 
grupo já instalado de micros Apple, lem- 
bramos que já existem no Brasil firmas 
que fazem a transferência eletrônica de 
arquivos do Apple (Vi 
plan) para o 1-2-3 no IBM PC. 


Carlos Mário Gomes de Almeida é diretor da 
empresa carioca Lotus Software e Consultoria, 
especializada em Consultoria e Treinamento 
do Lotus 1-2-3 bem como no desenvolvimen- 
to de sistemas de processamento de texto. 


As planilhas eletrônicas 


que são, afinal, as tão faladas planilhas eletrônicas? 

Imaginem uma folha dividida em linhas e colunas, des- 
tas usualmente utilizadas pelas empresas para os controles e 
planejamento econômico-financeiro. Caso esta folha esteja 
no vídeo de um computador, em lugar de estar fisicamente 
na sua mesa, e lhe permita fazer o mesmo trabalho que você 
está acostumado a fazer — com a diferença de trocar o lá- 
pis ea borracha pelo teclado e impressora de um microcom- 
putador —, isto é o que se chama planilha eletrônica. 


Esta folha aceita que você datilografe normalmente pala- 
vras e números, corrija-os sem qualquer problema, e recalcu- 
le todas as fórmulas que você inicialmente possa ter infor- 
mado ao apertar uma única tecla, com somente frações 
de segundo de espera. 

Estas planilhas tornaram-se poderosos instrumentos de 
aumento de produtividade do trabalho — outrora maçante e 
demorado — de desenvolvimento de análises, controles e 
projeções. 

Uma vez desenvolvido no computador um rascunho da 
planilha desejada, a obtenção da versão final e de variadas 
alternativas para o auxílio à tomada de decisão torna-se 
uma tarefa bastante rápida e fácil. Basta que se altere um 
valor (a previsão de inflação para um período, por exemplo ) 
para que todo o modelo seja recalculado em segundos; e 
basta um comando de impressão para se obter uma cópia 
impressa desta alternativa. 


Assim, é natural que a chegada dos micros e suas plani- 
lhas eletrônicas tenha permitido às empresas obter um incrí- 
vel aumento da produtividade de seus funcionários, e facili- 
tado em muito o processo de tomada de decisão. O planeja- 
mento estratégico baseado em projeções e simulações limi- 
ta-se agora ao trabalho de obtenção dos dados históricos e 
definição dos critérios de análise. 


PRINCIPAIS PLANILHAS 


As planilhas de maior aceitação possuem certos recursos 
básicos. Talvez o mais importante deles seja a livre entrada 
de dados e fórmulas dentro da planilha em si, como se fos- 
se datilografia comum; portanto tente fugir das planilhas 
que forçam uma saída para um “módulo” de entrada de da- 
dos e fórmulas. É muito mais intuitivo uma entrada direta 


dos dados na célula (cruzamento entre uma linha e uma co- 
luna) em que se está posicionado. 

Outra característica básica que praticamente todas as 
planilhas possuem é a livre movimentação pelas células, sen- 
do que, quando se encontra uma extremidade do vídeo, o 
quadro se desloca para que se possa observar partes distan- 
tes da planilha, que logicamente não se limita ao tamanho 
do vídeo. 

Outros recursos normalmente encontrados são: possibili- 
dade de inserção e eliminação de linhas e colunas; copiar 
fórmulas e palavras de qualquer lugar para outros e guardar 
os modelos desenvolvidos no disquete do computador, para 
que, em outro instante, se possa recuperá-los e modificá- 
los, imprimindo outra ou até a mesma versão. A possibilida- 
de de variar o tamanho das colunas é também um mínimo 
requerido, mas a capacidade de alterá-las individualmente é 
de extrema utilidade. Um outro recurso importantíssimo 
é o de fazer ordenações (SORT) dos dados da planilha, em 
ordem crescente ou decrescente, numérica ou alfabética. 


GERAÇÃO DE PLANILHAS 


Se existiu um padrão para planilhas eletrônicas de pri- 
meira geração, foi o Visicalc. O Visicalc foi muito utiliza- 
do desde quando foi lançado há uns cinco anos atrás, e, 
hoje em dia, se muitos ainda o utilizam é extritamente de- 
vido a limitações de equipamento ou falta de orientação. 

A última geração de planilhas é basicamente identificada 
pela sua integração com outros tipos de programas, que ou- 
trora eram somente utilizados independentemente. Esta 
integração significa que, em um único programa, você pode 
utilizar planilha eletrônica e, direta e simultaneamente, uti- 
lizar os seus dados para fazer ordenações e pesquisas como 
banco de dados e também fazer gráficos, por exemplo. 

Pode-se dizer que a evolução dos softwares passou a ser 
medida não mais em termos dos poderes isolados deum tipo 
de aplicação: agora a evolução é medida também em termos 
de integração. Quem provocou esta revolução foijustamente 
o Lotus 1-2-3, que tomou o lugar do Visicale como padrão 
de software, não só por possuir a planilha eletrônica mais 
poderosa do mercado (ou pelos seus outros módulos que, 
isoladamente, são ótimos), mas por conseguir integrá-los to- 
dos de uma maneira até agora imbatível. fa 


MICRO SISTEMAS, novembro/84 









dd ES 
q ra 


É x Va 
É RA ea 
e ÇÃ d 
GTA 
% 
na ade Na 
E - 
+ , 
” PN E o 
“ à ” 
% Va . o 





ps | Neca 
ç As 
: Ng, E 
ER 
ERC x / 
p= * A f 
z sx ANIS , 
VP DATE <> quba 
> 


SID, a empresa do ano em Informática. 
Na forma e na essência. 


Na forma, pelo desenvolvimento de tecnologia nacional padrão internacio- 
nal. Pela valorização e aprimoramento dos seus profissionais. Por produzir quali- 
dade em constante evolução. Pela liderança e melhor desempenho do setor. 

Na essência, pela filosofia empresarial voltada para o mercado brasileiro de 
Informática, suas necessidades de hoje e do futuro, sua urgência por novas solu- 
ções e melhores equipamentos. 

Ãos clientes, fornecedores e funcionários responsáveis por mais esta vitória 
o reconhecimento da SID, Empresa do Ano em Informática. 


[) 


INFORMÁTICA S.A AAA] 














Guia de Linguagens de 
“COMPUTADORES 


DICIONÁRIO DE PALAVRAS-CHAVES 


[Harry L.Heims Jr] 


EDITORA CAMPUS 





HELMS Jr., H. L., Guia de Lin- 
guagens de Computadores, Edi- 
tora Campus. 


] A maior parte dos livros que 
abordam linguagens de compu- 
tação o fazem examinando uma 
de cada vez. Acontece que por 
vezes o profissional vê-se diante 
de sistemas escritos numa lin- 
guagem com a qual ele não está 
familiarizado, e torna-se proble- 
mático encontrar, na volumosa 
literatua desta área, conceitos 
básicos sobre diferentes lingua- 
gens de forma rápida e prática. 

Este livro, que não pretende 
funcionar como guia de progra- 
mação em diferentes linguagens, 
visa justamente atender áqueles 
que desejam conhecer as dife- 
renças entre Cobol e Fortran, ou 
que, habituados a programar em 
Basic, gostariam de saber o que é 
Pascal, por exemplo 

Em sete capítulos, todos 
estruturados de forma padroni- 
zada, de modo a distinguir clara- 
mente as características especifi- 
cas de cada linguagem, são abor- 
dadas Algol; Basic; Cobol; For- 
tran; Lisp; Pascal e PL/1. No úl- 
timo capítulo, é fornecido um 
pequeno dicionário de palavras- 
chaves que facilita demais no ca- 
so de consultas superficiais. 


SHIMIZU, T., BASIC, Editora 
Atlas. 


BE Mais um título sobre BAsic 
dentre os inúmeros que inun 
dam o mercado editorial, este 
traz a assinatura de um autor 
tradicional da área, já responsá- 
vel por livros de Programação 
Cobol e Conceitos Básicos de 
Processamento de Dados, ambos 
da mesma editora. 

Inicialmente são apresenta- 
das definições de termos técnicos 
próprios do BASIC, além dos 
comandos básicos. Nos capítu- 
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los seguintes — ao todo são 18, 
complementados com três apên- 
dices num total de 204 páginas 
— são abordados comandos mais 
avançados; exemplos de aplica- 
ções comerciais e científicas e 
exercícios de fixação (cada capí- 
tulo possui um bloco de exerci- 
cios dos conceitos estudados), o 
que evidencia preocupação didá- 
tica. 

Um capítulo específico foi 
destinado à programação de en- 
sino com o microcomputador, 
discutindo sua aplicação em 
escolas e no treinamento profis- 
sional. 


Jorge do Cunha Pereira Filho 


E | 





PEREIRA FILHO, J.C., RPG //, 
Editora Campus. 


[| RPG Il é uma antiga e popu- 
lar linguagem de programação, 
frequentemente utilizada em 
computadores de variados por- 
tes para aplicações administra- 
tivas. 

Graças a sua lógica pré-defi- 
nida, o ciclo básico, o RPG Il 
torna fácil a tarefa de progra- 
mar, principalmente quando é 
aplicado com o fim específico 
para o qual foi criado: a emissão 
de relatórios. 

Esta motivação levou o autor 
a descrever as técnicas básicas 
necessárias à utilização de RPG 
Il neste livro, constituído de 
oito capítulos onde o assunto é 
tratado de forma gradual e deta- 
lhada, o que proporciona um 
nível de aprendizado que permi- 
te escrever programas nesta lin- 
guagem. 

Todos os capítulos são ilus- 
trados com exemplos, mostran- 
do os dados que entram, seus re- 
gistros e os relatórios emitidos, 
além da listagem de compilação 
e de comentários sobre as solu- 
ções adotadas. Ao final de cada 
capítulo encontram-se exercí- 
cios práticos, tirados do cotidia- 
no do processamento de dados. 


TATCHELL, J. BENNETT, B., 
Introdução ao microcompu- 
tador, Editora Lutécia. 


EE Dedicado, segundo pronun- 
ciamento da editora Lutécia, a 
“meninos e meninas de 8 a 16 
anos”, este livro integra uma sé- 
rie com a qual os editores pre- 
tendem ganhar uma fatia do ren- 
tável mercado juvenil da infor- 
mática. 

Todo construído à base de 
quadrinhos e pequenas legendas, 
o livro apresenta uma diagrama- 
ção algo confusa e a ocorrência 
de definições simplistas e con- 
ceitos por vezes impreciosos, o 
que torna questionável sua efi- 
ciência em relação ao leitor-alvo 
para o público infantil, ele peca 
por abordar (geralmente, em 
duas páginas) temas complexos 
como o chip, redes locais e con- 
trole de processos, e para os 
adolescentes este tipo de litera- 
tura é inconcebíbel, visto que os 
jovens na faixa de 15 anos pos- 
suem condições de vôos bem 
mais altos 

Alguns dos temas tratados 
nos capítulos deste livro são: 
introdução; o micro; programa- 


ção; teclado; como executar e 
guardar programas; gráficos e 
animações; música e efeitos so- 
noros; o micro por dentro; uma 
pastilha por dentro; história do 
microcomputador; redes de 
computadores; controle com 
micros; acessórios para o micro 
e como escolher seu micro. 

Na mesma linha, a Lutécia 
lançou ainda outros dois títulos 
da série. O Guia prático de pro- 
gramação em BASIC, de Brian 
Smith, que trata em seus capítu- 
los de assuntos como o funcio- 
namento do computador; dando 
instruções ao computador; pri- 
meiros passos em BASIC; como 
utilizar o INPUT; o que fazer 
com o PRINT, desenhos; jogos; 
loops; subrotinas; gráficos e sím- 
bolos e dicas de programação, 
entre outros temas. 

O terceiro livro traz progra- 
mas de jogos especiais, sendo de 
autoria de Daniel Isaaman e 
Jenny Tyler. Neste, encontram- 
se listagens de programas, já 
adaptados aos equipamentos na- 
cionais (linhas Sinclair, TRS e 
Apple), além de sugestões e di- 
cas de programação de jogos. 
Todos os livros são traduções. 
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Mlicrodigital apresenta 
o novo TK 2000 color: 


Que tal um micro de alta performance, que traz as principais características 
dos equipamentos mais sofisticados e que não exige de você um grande 
investimento inicial? E que tal um micro que cresce de acordo com as suas 

necessidades? São estas as vantagens que vão fazer do novíssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: ele tem 64K de memória RAM e 16K de memória ROM, teclado profissional 
tipo máquina de escrever, recebe diskette e impressora com interface já contido, 
trabalha em cores, oferece alta resolução gráfica e som. 

Peça uma demonstração. Nunca tanto foi lhe oferecido por tão pouco. 
Grande quantidade de software disponível (entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resolução gráfica). 


- Eletemtudo que um 
micro deve ter IVlenos o preço. 


Caixa Postal 54088 - CEP 01000 - São Paulo - SP - Telex Nº (011) 37.008 - Mide BR 
À venda nos boas cosas do ramo, lojos especializadas de fotovideo-som e grandes magazines 
Se você não encontrar este equipamento na sua cidode ligue pora (011) 800-255-8583 


VENDAS, ALUGUEL E SERVIÇOS DE 50 
OCAÇÃO E REVENDA DE HARDWARE. 







compatíveis com CP/M, TRSDOS Ii ni 
64x160u BOxZ4. 








Ponha o Serviço Cirandão da Embratel na linha. 


O Modem UR:275 VTX da Parks é a Basta uma linha telefônica comum para 
maneira mais simples e rápida de você ligar completar essa ligação. 
o seu microcomputador ao Serviço Cirandão O Modem UR:1275 VTX recebe sinais em 
e ter ao seu alcance as mais diversas 1200 bps e transmite a 1200 ou 75 bps. É um 
informações de interesse doméstico, aparelho de pequenas dimensões (15 x 25 cm), 
empresarial e profissional. E ainda, terá peso reduzido e de fácil instalação. 
acesso a serviços complementares como Receba o Serviço Cirandão em sua casa, 
telemensagens por computador, quadros de | empresa, consultório ou escritório. 
avisos, diretórios de serviços, cadastros O Modem UR-1275 VTX da Parks 
de usuários e outros. dá o acesso. 
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O Modem UP-1275 VTX completa aligação com seu micro. 
Bs —- (EraParts Equipamentos bl Ltda. 
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São mais de 140 apostilas com informações completas e sempre 
atualizadas. Tudo sobre os mais revolucionário CHIPS. E você 

recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro. 


CEDM-20 - KIT 

de Ferramentas. 
CEDM-78 - KIT 
Fonte de Alimentação 
Sv/1A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 

de Componentes. 
CEDM-80 
MICROCOMPUTADOR 
Z80 ASSEMBLER. 


nh 


qua À 


* 
) 


Tora; 





Este CURSO, especialmente programado, oferece os 

fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC 
básico até o BASIC mais avançado, incluíndo noções básicas sobre 
Manipulação de Arquivos, Técnicas de Programação, Sistemas de 
Processamento de Dados, Teleprocessamento, Multiprogramação e 
Técnicas em Linguagem de Máquina, que proporcionam um grande 
conhecimento em toda a área de Processamento de Dados. 


KIT CEDM Z80 


BASIC Científico. 

KIT CEDM Z80 

BASIC Simples. 

Gabarito de Fluxograma 

E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 





MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 





Métodos novos e inéditos de ensino garantem um aprendizado 

prático muito melhor. Em cada nova lição, apostilas ilustradas 

ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas, 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Áudio, Técnicas de Gravação e também de Reparação em Áudio 


CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM:3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM-S - KIT Pré-amplificador 
Estéreo. CEDM-6 - KIT Amplificador Estéreo 40w. 


Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
equipe de professores sempre muito bem acessorada. Além disso, você 
recebe KITS preparados para os seus exercícios práticos. 

Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
SOS CEDM por correspondência garantem condições ideais para o seu 
aperfeiçoamento profissional. 


EEE GRÁTIS 
Você também pode ganhar um MICROCOMPUTADOR. 


Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 
Em poucos dias você recebe nossos catálogos de apresentação. 











I 
CEDM Avenida São Paulo, 718 - Fone (0432) 23-9674. 
UR CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 


| CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 


Solicito o mais rápido possível informações sem compromisso sobre o 
CURSO de. 











HARDWARE 


e Vendo conjunto de HP 85A com- 
pleto, com impressora externa e 
interfaces. Preço 464 ORTN lIza- 
bel Fone (011) 282-6356 — S. 
Paulo. 





SOFTWARE 





e Programas p/Apple: aplicativos, 
utilitários, compiladores, lingua- 
gens e jogos. Tel.: (021) 239-0449, 
Stela. 


e V. 17 prog. por 15 mil, c/sint. 
de voz, bugertime, zaxxon, etc., 
c/Alcides Zina, R. Helena D. Ne- 
me nº 222/11, S. J. Campos — 
12200 — SP. 


e Programas TK 82 troco à noite 
390-8323 Carlos. 





VENDO 


m financio 


pls sif 


ofo, 








e Softwares para HP 85-87, Apple e 
TRS80:CONTROLE DE APLICA- 
ÇÕES EM INVESTIMENTOS de 
ações, ouro, dólar e boi. Por meio 
dos gráficos: Ponto Figura, Míni- 
mo, Máximo e Fechamento da 
Bolsa. PACOTE DE TOPOGRAFIA 
constando de 7 conjuntos de roti- 
nas. Micro-Rei Informática — Rua 
Pinheiros, 812, Fone (011) 881- 
0022 — S. Paulo. 


e Programas Apple em discos te- 
nho muitos para trocar — Cecilio 
Berndsen SQN 307, Bloco H, apto. 
511 CEP: 70746 Brasília D.F. 


DIVERSOS 


e Vendo livros e jogos para TK 82 
pede catálogo José M. Leite Rua 
Prud. Morais, 547 Batatais — SP. 


CURSOS 


e O NETC — Núcleo de Ensino de 
Tecnologia e Ciência ministra re- 
gularmente, em sua sede e em em- 
presas de outros estados, os cursos 
de: Eletrônica Digital | e Il; Hard- 
ware e Periféricos dos Microcom- 
putadores Z-80, Z-8000, 6800, 
68000, 80, 85, 8086, 6502; Bit- 
Sliced; Amplificadores Operacio- 
nais, Hardware e Software de Te- 
leprocessamento; Interfaces A/D e 
D/A; Fibras Óticas, e outros mais. 
Desenvolve inclusive Programas de 
Treinamento Profissional na área 
de Hardware e Software que aten- 
dam em específico a empresas in- 
teressadas. Informações e Pedido 
de Catálogos de Cursos: Rua Ál- 
varo Alvim nº 37 — 2º andar — 
Fone: (021) 220-1989 — Centro 
— CEP: 20031 — Rio de Janeiro — 
RJ. 





NA PÁGINA 


CORREÇÃO 





linha 2790 
linha 3100 
linha 5340 
linha 5520 


72, na listagem Batalha Naval, ocorreram falhas em quatro linhas 
da listagem. Faça as devidas correções nas seguintes linhas 


4 
d: 


Ni 


S,1;00K.cs 


“MONTE SUEM 


TiNi,OCNI +16; " 


10 (N)) =" 





40, no programa Análise de circuitos elétricos, após o entretítulo 
Como usar O programa, a primeira frase deve ser 


Escolha primeiramente o nó de referência... 








41, primeira coluna, no final do segundo parágrafo altere para 





você é quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto você terá que pagar? Isso também é 


decisão sua. Preste atenção: 


e cada linha de texto (30 toques, incluindo os espaços em branco) 


custa Cr$ 2.000,00; 


e linhas incompletas serão cobradas como inteiras; 





homs, microamperes e volts 


O programa pode ser usado com dois conjuntos de unidades 
o pnmeiro em ohms, amperes e volts; e o segundo em quilo- 


QUEM MANDA 
NESTA PÁGINA SOU EU! 


Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 


* o próprio anunciante deve checar o valor de seu anúncio com o 


número de linhas que ele contiver; 


e o anúncio deve vir acompanhado de um cheque nominal à ATI 


Editora Ltda; 


Os textos devem ser datilografados ou escritos em letra de fôrma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 
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Maiores informações pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 





















PARA 
PROBLEMAS 
TÉCNICOS 
USE 

A CABEÇA 


Uma Empresa a 
Serviço da 
Micro Eletrônica 


Assistência 
Técnica 
Autorizada 


PROLÓGICA 
UNITRON 
ELEBRA 


PARA PROBLEMAS COM MATERIAL DE 


DESENHO - PINTURA - ENGENHARIA 
PAPELARIA - ESCRITÓRIO - MÁQUINAS P/ 
ESCRITÓRIO E SUPRIMENTOS EM GERAL 

O BEL-BAZAR 
ELETRÔNICO 
onde você AINDA encontra 
e qualidade de ANTIGAMENTE? 
AV. ALMIRANTE BARROSO, 81 - LJ “C” 
TEL: 282:3229 - 262.9088 - 240-8410 - 221-8282 
RIO DE JANEIRO - CASTELO 













SEU MICRO EM 
BOA COMPANHIA 
ASSISTÊNCIA TÉCNICA 
AUTORIZADA: 


ROBOTIC 


€ Microcomputadores de 
todas as marcas 
novos e usados 





PROLÓGICA 
UNITRON 

DIGITUS 
ELEBRA 


€ Suprimento 


O Peças e partes para 
microcomputadores 


€ Jogos eletrônicos 


RUA BARATA RIBEIRO, 370 

— Loja 105 APART HOTEL — 

COPACABANA — RIO — RJ 
TEL.: (021) 2567-6396 








(031) 201-5156 
Rua Espirito Santo, 1868 
Belo Horizonte — M.G 


6% MICROLÓGICA 


Engenharia de Sistemas Ltda. Consultoria de Hardware 
ASSISTÊNCIA TÉCNICA 
A MICROCOMPUTADORES: 
Apple, TRS 80, IBM PC, ZX 81, TK 82, 
TK 85, CP 200, CP 500, Unitron, 


Impressoras e demais periféricos 
Jogos de xadrez e outros compatíveis. 













Compramos seu micro 
funcionando ou não. 
Fazemos transformações 

VENDEMOS e alinhamento de Drivers. 
INTERFACES 

DIVERSAS P/ 


VIDEO K-7 us 
LINHA APPLE. O) 


TRANSCODIFICA 
TEMOS DISKE 


263-9925 






Av. Presidente Vargas, 542/1912 - Tel.: 


COMPUTADORES 
E PERIFÉRICOS 


UNITRON 
MICROCRAFT 


VENDAS 
LEASING 


PROGRAMAS 
CURSOS 


ASSISTÊNCIA 
TÉCNICA 


Av. Mal. Câmara, 271 s/loja 101 
Tel: (021) 262-3289 — R.). 


Sinclair PDace 


O lugar compatível 
com você e seu 
micro. 








— Micros 
— Acessórios 


— Software 
— Livros 


— Revistas 





Rua Dias da Cruz, 215 — $/804 
Rio de Janeiro — RJ 


BIP — 246-4180 — cod. 2x83 














GPREETITIO 


CENTRO DE PESQUISAS, 
ESTUDOS E ENSINO 
TECNOLÓGICO E DE 
INFORMÁTICA DE MINAS 
GERAIS LTDA. 














Já estão abertas as 
inscrições para 

o curso de Análises 
de Sistema, com 
estágio garantido 
para todos os alunos 
em nosso CPD 
Rua Tamoios nº 462/911 


Rua da Bahia nº 504 - 4º andar 
B. Horizonte - M. Gerais 





HAROLIADE- 


ASSISTÊNCIA TÉCNICA 














TODOS OS NACIONAIS 
E IMPORTADOS 


ALINHAMENTO 
DE DRIVES 


TRANSCODIFICAÇÃO 


PROJETOS 


R. das Marrecas, 39 Sala 402 
Rio de Janeiro — RJ 
Tels. (021) 220-5403 

















MICROCITY 


computadores e sistemas 


MICROS, 
PERIFÉRICOS, 
SUPRIMENTOS, 
SOFTWARE, 
MANUTENÇÃO, 
CURSOS E 
LITERATURA. 


EFICIÊNCIA E 
CONFIABILIDADE 


A ESSÊNCIA DO 
NOSSO TRABALHO 


R. Paraíba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.G. 


DATAMICRO 


VENDA DE 
MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 

CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 


SUPRIMENTOS 
Disquete, fitas, form. continuo 
CONSULTORIA DE SISTEMAS 
Diagnóstico e apoio a decisão 


CURSOS E TREINAMENTO 
Introdução aos microcomputadores 
Linguagem Basic 
Aplicação dos micros 
na Engenharia 
Microcomputadores para crianças 
INSCRIÇÕES ABERTAS 


Livros e revistas especializados 








Visc. de Pirajá, 547 Sobreloja 211 
Cep. 22.410 Ipanema Rio RJ 


TEL.:(021)511-0395 
DESPACHAMOS PARA 
TODO O BRASIL 





Linha TRS-80 (III) 


1 — Coloque no drive O um disquete | 6 — Não responda ainda. 
com senha conhecida (SENHA). 7 — Retire o disquete do drive O e co- 
2 — Digite PROT:O(PW)< ENTER>. loque o disquete em que a senha é 
3 — O micro perguntará “SENHA desconhecida. 

A melhor forma de achar uma se-  MESTRA?”. 8 — Responda agora ao computador, 
nha mestra desconhecida é mudar a 4 — Digite SENHA < ENTER> . digitando: SENHA < ENTER > . 


senha para outra conhecida. Como? 5 — O computador fará outra pergun- 
Simples, siga estas etapas e comprove: ta: “NOVA SENHA MESTRA?”. 
PRINT “ESTE PROGRA 


MA OCUPA" ; oi 


9999 PRINT BYTES-115;" 
B 


Se você tem pequenas rotinas e programas utilitários 
LET BYTES=PEEK 16 realmente úteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgá-los. En- 

AGAAaSGSERER, 640 vie-os para a REDAÇÃO DE MICRO SISTEMAS — SEÇÃO 
5-16384 DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 


Descubra a senha 


Ari Morato — MG 


Linha SINCLAIR 


Contando bytes 


Coloque esta dica no final 9997 LET BYTES=PEEK 163 
de seus programas e saiba, a 96+256*PEEK 16397- 
qualquer momento, o total 16509 
de memória ocupada: 


E se no programa houver 
variáveis dimensionadas, pa- 
ra incluí-las na contagem é 
só trocar a linha 9997 para: 


Luís Carlos de Almeida Serpa — RJ 


Esta sub-rotina em BASIC roda 
em computadores compatíveis com 
as linhas TRS-80, PC-IBM e 1-7000 
(da Itautec), sendo que foi original- 
mente feita em um equipamento Ne- 
xus, da Scopus. Simples, mas útil, es- 
ta dica deve ser colocada, em caso de 
programas longos, logo no início, pois 
o BASIC procura sub-rotinas a partir 
da linha inicial, ou seja, de cima para 
baixo no programa. 


Para usá-la, defina primeiro a variá- 
vel de entrada igual ao valor a impri- 
mir, depois desvie o programa para 
esta sub-rotina e comande a impres- 
são da variável de saída. Esta variável 
terá sempre um comprimento fixo e, 
dentro dela, as casas vazias serão 


Rio de Janeiro, RJ, CEP 20030. Não se esqueça de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderá ser útil para muitos e muitos, em 


Linha GERAL 


Imprimindo cruzeiros 


nho desejado), mas é preciso ter cui- 
dado para não truncar o número. 

É interessante observar ainda algu- 
mas características desta sub-rotina: 
o conteúdo da variável original não é 
destruído; o arredondamento e a no- 
tação normal dos números são man- 
tidos, sendo que os negativos precedi- 


40000 REM ROTINA PARA IMPRESSAO 


vez de desmagnetizar-se com o tempo em suas fitas e dis- 


dos do sinal “—”. e se o programa ge- 
rar somente números positivos, as 
quatro últimas linhas desta dica não 
serão executadas, podendo-se, por- 
tanto, eliminá-las. 


Evaldo Mendes — DF 


EM FORMATO CRUZEIRO SEM DECIMAIS 


10010 REM DIMENSÃO MAXIMA DE ENTRADA = 999.999.999.999.999 OU 14 


INTEIROS + DECIMAIS 

10020 REM VARIAVEL DE ENTRADA: 
LENCCR$=20)* 

10030 REM 


CRH VARIAVEL DE SAIDA: CR$ * 


140040 IF CRH=D THEN CR$=STRINGS(20,” “):RETURN 
10050 IF CRH)>O THEN X=.5 ELSE X=-.5 
10070 CR$=STR$(FIXC(CRH+X))2CR$=STRINGS(16-LENCCR$),” “)+MIDSCCRS 


+2,LEN(CR$)) 
10080 FOR X=3 TO 15 STEP 4 


10090 IF MIDS(CR$,X,1)=” “ THEN XX=32 ELSE XX=46 
10400 CR$=MIDS(CRS,1,X)+CHRECXX)+MIDS(CRS, X+1, LENCCR$)-X) NEXT 


SINCLAIR 


Letreiro no micro 


Uma boa dica para ilustrar.seus 
jogos e programas: faça um letrei- 
ro luminoso, do tipo usado em out- 
door, na tela do seu micro. Para 
facilitar, use o comando E do MI- 
CRO BUG para criar uma linha 
REM (nesta dica a linha REM tem 
34 caracteres), e o comando M, 
também do MICRO BUG, para in- 
serir os blocos em Assembler. A 
variável A$, que será definida quan- 
do 9 programa começar a rodar, 
contém a frase ou o texto que se 
quer colocar no letreiro. 


ROTINA EM ASSEMBLER 


Ricardo Nunes Bandarra — RS 


Linha TRS-80 (III) 


Ressuscite arquivos 


O pessoal que leu o artigo “O NEWDOS que não está nos manuais” (MS 
nº 31, pág. 22) e ficou triste por não poder aplicar no TRSDOS/DOS 500 a 
técnica de recuperação de arquivos apagados pelo comando KILL, não preci- 
sa mais ficar desanimado: é possível modificar o TRSDOS/DOS 500, de for- 
ma que o comando KILL passe a zerar apenas o primeiro byte-tal como no 
NEWDOS-, em vez de zerar todos os bytes da entrada do diretório de um ar- 
quivo. Para isso, basta utilizar o seguinte PATCH: 

PATCH * 3 (ADD = 4FAE,FIND = 3600D554, CHG = CBA61808) 

Após esta alteração, é só seguir as instruções do artigo de MS nº 31, pág. 
22, e (se o espaço do disco anteriormente colocado ainda não tiver sido rea- 
locado), ressuscitar os arquivos. 





Roberto Quito de Sant'Anna — RJ 


Linha SINCLAIR 
Duplique programas 


Coloque esta rotina em linguagem de máquina no topo da memória 
(RAM-TOP) e duplique qualquer programa por mais fechado que esteja: pri- 
meiro, digite POKE 16388, 241 e depois dê POKE 16389, 127 e NEW. Em 
seguida, entre com os seguintes códigos: 

32753 CD44 03 CD 

32757 BBO2 2C 28 

32761 FACD 23 '0F 

32765 C3 F502 

e dê NEW novamente. Para duplicar o programa, digite FAST, RAND USR 
32753 e carregue o programa. Assim que o programa estiver carregado, a te- 
la ficará escura. Coloque então a fita para gravar o programa, posicione o 
gravador para gravar, e aperte uma tecla qualquer do micro. Aguarde alguns 
segundos, pois o micro estará gravando o programa fechado. 

e mi duplicar para high-speed, e só trocar a linha 32765 por: 32765 C3 

Uma última observação: se o programa fechado foi gravado pela instrução 
SAVE, logo após a gravação em duplicata ocorrerá erro C/0. Mas não é pre- 
ciso se preocupar, pois esse problema não afetará o carregamento do pro- 
grama na fita. 


Renato Moreira Prado — SP 


Linha SINCLAIR 


Complementando o SCROLL 


Na Seção Dicas de MS nº 25, pág. 126, foi publicada uma dica muito boa: “SCROLL em Assembler”. Só que não fun- 
ciona exatamente como o SCROLL da máquina, pois não posiciona o próximo PRINT na última linha. Para tornar aque- 
le SCROLL uma simulação idêntica ao do equipamento, coloque este adendo: 


SCROLL ANTERIOR 


COMPLEMENTO 


16514 - 2A OC 40 ES íí 21 00 19 Dí Oí 


Dé 02 ED BO 


04 00 45 CD FS 08 C9 


Desta forma pode-se mudar a linha e a coluna da próxima impressão, alterando-se os bytes: 


preenchidas com brancos. Caso se 10140 CR$=” “+CR$ZIF CRHDO THEN RETURN 14520 1 y , d 0 32 

i i 140420 FOR X=19 TO 1 STEP-Íí 6320 coluna. Varia de a ga 
queira reduzir o seu tamanho, pode- e y RA Ê ea . 5 E 
se fazê-lo, antes da impressão, do ADISO EP HIDIIDAS,X,d)= THEN CR$=LEFTSC(CR$,X-1)+-"+RIGHTS(CR 165241 inha. Varia de OD a 25 
para isso os comandos CR$=RIGHTS 40440 NEXT 


(sendo que CR$ refere-se ao tama- 40150 RETURN Um lembrete final: para inicializar a rotina, deve-se chamar RAND USR 16514. 


Alexandre R. Goidanich — R$ 








A sintaxe dos comandos é simples, os recursos muito poderosos. Com ele você poderá 
gerenciar seu banco de dados e desenvolver aplicativos personalizados 





O dBase II, por etapas 


e todos os gerenciadores de 

arquivos surgidos no merca- 

do, sem dúvida o dBase II é 

um dos mais bem sucedidos. 
Comercializado nos EUA pela empresa 
Ashton-Tate e no Brasil pela Datalógica 
Transnational, o dBase foi desenvolvido 
para utilização sob os sistemas operacio- 
nais CP/M ou MS-DOS, este último para 
a linha IBM-PC. 

O sistema é composto por um progra- 
ma mestre (dBase) e por rotinas auxilia- 
res — chamadas pelo mestre quando ne- 
cessárias —, e sua principal vantagem é 
pérmitir que grande parte das aplicações 
sejam desenvolvidas de forma interativa, 
sem haver necessidade de programação. 


INICIALIZAÇÃO 


O primeiro passo para se garantir 

uma utilização otimizada do dBase é a 
adequação do banco de dados, mediante 
a definição dos arquivos necessários; e 
para isto o dBase possui comandos bas- 
tante simples de serem usados: 
CREATE -— para criar arquivos. Define 
sua estrutura, fornecendo dados sobre 
quais as informações contidas (campos); 
o tamanho de cada campo e o tipo de 
dados que serão armazenados (numérico, 
caracter ou lógico). 


no 
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USE — (seguido do nome do arquivo). 
Para selecionar a base de dados a ser uti- 
lizada. 
DISPLAY STRUCTURE -— para apresen- 
tar a estrutura de dados RR 
MODIFY STRUCTURE — para modifi- 
car estruturas (arquivos), criando novos 
campos ou alterando os já existentes. 
Após criadas as estruturas de dados, 
pode-se manipular as informações con- 
tidas nos arquivos que foram criados de 
maneira simples, através de comandos 
que apresentam os campos no vídeo, já 
formatados, ou seja, cada campo é apre- 
sentado com seu nome seguido de “:”, 
para indicar o início e o fim do mesmo. 
Nesta etapa, os comandos utilizados são: 
APPEND -— para criar novos registros no 
fim de um arquivo. 
EDIT — para editar (alterar) registros 
existentes. 
REPLACE — para alterar alguns campos 
de registros seletivamente, a partir de va- 
lores informados. 
INSERT — para inserir registros entre 
outros já existentes. 
DELETE — permite apagar logicamente 
registros, ou seja, Os registros que se de- 
seja apagar são marcados para futura su- 
pressão física no arquivo. 
RECALL — permite recuperar registros 
que foram marcados para supressão (apa- 


gados logicamente), desmarcando-os. 
PACK — retira fisicamente todos os re- 
gistros que estejam apagados logicamen- 
te 


Quanto à ordem em que são posicio- 
nados os registros, originalmente estes 
irão encontrar-se na ordem em que fo- 
ram criados, mas esta situação pode ser 
alterada de duas maneiras: tanto lógica 
quanto fisicamente. O comando SORT 
é utilizado para ordenar fisicamente um 
arquivo, segundo um campo escolhido 
pelo usuário. Assim, os registros são 
transferidos para um novo arquivo, com 
a mesma estrutura do original e uma no- 
va ordenação. 

Já o INDEX é um comando que per- 
mite ordenar logicamente um arquivo 
segundo uma chave qualquer. Isto quer 
dizer que o dBase, além do banco de 
dados original, cria um outro arquivo 
de ponteiros que indica a ordem em que 
os registros devem ser apresentados. Es- 
te aspecto constitui-se uma das princi- 
pais vantagens do pacote, pois possibili- 
ta a escolha de qualquer campo para ser- 
vir como índice, permite criar chaves 
compostas (mais de um campo na chave 
de ordenação) e, com certos cuidados, 
permite o uso de campos de qualquer ti- 
po (numérico, caracter ou lógico) nas 
chaves criadas. 
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Existem cinco opções de acesso a re- 
gistros disponíveis pelo dBase. Os co- 
mandos de acesso são: 

GOTO n — permite acessar diretamente o 
registro que se encontra fisicamente gra- 
vado no lugar especificado (n). Duas va- 
riantes deste comando permitem acessar 
o primeiro registro (GO TOP) e o último 
(GO BOTTOM). 

SKIP n — permite pular o número de 
registros especificado (n) para frente ou 
para trás. Este comando, quando execu- 
tado em arquivos indexados, é executa- 
do de forma lógica, ou seja, o pulo efe- 
tua-se obedecendo à ordem de chaves. 
LOCATE — permite localizar em um ar- 
quivo um registro que contenha, em qual- 
quer campo, uma característica desejada. 
CONTINUE -— este comando localiza o 
próximo registro que contenha a carac- 
terística selecionada pelo último coman- 
do LOCATE. 

FIND — permite acessar diretamente o 
registro que contenha a chave informa- 
da. Outra importante característica do 
dBase, o FIND deve ser utilizado com 
arquivos previamente indexados segun- 
do a chave desejada, sendo a performan- 
ce observada excelente (até dois segun- 
dos). 

O dBase possibilita ainda a recupera- 
ção de chaves ou campos parciais, tor- 
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Exemplo de usó do comando FIND. Observe 
a utilização de campos parciais (BER). 


nando assim possível acessar um registro 
que contenha uma chave que se inicia 
com determinada característica. 


APRESENTAÇÃO DOS REGISTROS 


Os dados podem ser apresentados, no 
vídeo ou impressora, de três formas dis- 
tintas: com uso de comandos interativos; 
com uso de um gerador de relatórios in- 
terno ao dBase ou com a criação de pro- 
gramas específicos. 

Interativamente, dois comandos po- 
dem ser utilizados: 

LIST — lista todos os registros do arqui- 
vo, sem interrupção. 
DISPLAY — utilizado sem complemen- 
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tos, apresenta um único registro do ar- 
quivo (aquele que está sendo acessado 
no momento). Com o uso do sufixo ALL, 
o comando DISPLAY apresenta todos 
os registros do arquivo, parando de quin- 
ze em quinze, o que facilita a leitura no 
vídeo. Já mediante o uso do sufixo 
NEXT n, são apresentados os próximos 
n registros do arquivo. 

Estes dois comandos podem ser utili- 
zados seletivamente, apresentando so- 
mente os dados que obedeçam a uma 
determinada característica, com o uso 
do sufixo FOR “condição”. No caso de 
não se desejar ver todos os campos dos 
registros, é possível, com os comandos 
LIST e DISPLAY, a indicação dos cam- 
pos desejados. 

A segunda forma de apresentação do 
arquivo é através do gerador de relató- 
rios, acessado com o comando REPORT. 
Este comando permite o uso de relató- 
rios pré-definidos, ou ainda uma defini- 
ção particular do relatório a ser impres- 
so, possibilitando especificar a largura e 
o tamanho da página; o cabeçalho do re- 
latório; os totais desejados e os campos 
a serem impressos, com seus subtítulos 
e posições na página. 

Os relatórios assim definidos podem 
ser arquivados para uso posterior e, além 


disto, aceitam o uso do sufixo FOR & 





OUTROS PROGRAMAS | PREÇO 
A DISPOSIÇÃO CR$ 


357.000,00 
446.000,00 
268.000,00 
268.000,00 
536.000,00 


Controle de Estoque 
Mala-direta c/Ed. Texto 
Contas a pagar/ receber 
Tesouraria (c/saldo bancário) 
Crediário 


Contabilidade 357.000,00 


Empresa filiada à ASSESPRO 





O dBASE Il, POR ETAPAS 





CP400 COLOR. 


VOCÊ TEM QUE ESTAR PREPARADO POR QUÊ? 





“condição” para uma apresentação sele- 
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um único arquivo. Caso os dados a se- 
rem apresentados se encontrem em mais 
de um arquivo, deve-se criar um progra- 
ma. 


OUTROS RECURSOS 


Uma série de outras funções encon- 
tram-se disponíveis no dBase II, servin- 
do como complementação do pacote. 
Assim, para auxiliar a manipulação de 
arquivos, por exemplo, conta-se com os 
seguintes comandos: 


COPY — copia um arquivo existente pa- 
ra outro. Pode-se copiar todos os dados; 
alguns dados selecionados (com o uso 
do sufixo FOR) ou somente a estrutura 
do arquivo, sem os dados (com o uso do 
sufixo STRUCTURE). 


APPEND FROM -— traz os dados de um 
determinado arquivo, acrescentando-os 
ao fim do arquivo em uso. 

JOIN — permite juntar dois arquivos, 
formando um terceiro que é composto 
por campos dos dois originais. Uma con- 
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Uso do sufixo FOR: no exemplo da agenda de endereços, a condição foi 'amigosde fora do Brasil". 


dição de igualdade deve ser fornecida 
para coordenar a junção. 


TOTAL — permite criar novo arquivo, 
com totais dos campos desejados. 


UPDATE — permite alterar dados de um 
arquivo, substituindo-os ou somando-os 
com os dados provenientes de um outro 
arquivo. 


Outros comandos existem que facili- 
tam a criação e o manuseio de variáveis 
internas, que poderão ser impressas, gra- 
vadas em arquivo ou utilizadas em com- 
parações. Veja a seguir: 


STORE — para guardar um valor (infor- 
mado ou proveniente de um arquivo) 
numa variável. 


SUM — semelhante ao comando TOTAL, 
porém somando os valores numa variá- 
vel interna. 


COUNT — conta as ocorrências de deter- 
minada condição, guardando o resultado 
numa variável. 


COMANDOS DE PROGRAMAÇÃO 


O dBase permite ainda a execução de 
rotinas pré-definidas através do uso do 
comando DO “rotina”. A rotina cha- 
mada deve ter sido previamente criada, 
utilizando-se as facilidades do dBase (o 
comando MODIFY COMMAND) ou um 
editor de textos qualquer. A linguagem 
do dBase é totalmente estruturada, e 
além de todos os comandos vistos até 
aqui, existem alguns que são específicos 
da etapa de programação. Veja alguns 
exemplos: 


Exemplo 1: 

IF condição 

comandos desejados 

ELSE 

comandos desejados 

ENDIF -— se a condição é satisfeita, exe- 
cuta o primeiro bloco de comandos; se- 
não o segundo bloco. 


Exemplo 2: 
DO WHILE condição 
comandos desejados 


ENDDO -— executa os comandos enquan- 
to a condição for verdadeira. No caso de 
se querer voltar ao início do DO WHILE 
sem executar todos os passos, utiliza-se 
LOOP. 


Exemplo 3: 

DO CASE 

CASE condição 
comandos desejados 
CASE condição 
comandos desejados 


OTHERWISE 

comandos desejados 

ENDCASE — executa os comandos abai- 
xo da primeira condição verdadeira, ou 
os comandos abaixo do OTHERWISE. 


LIMITAÇÕES 


Cada arquivo poderá ter, no máximo, 
65535 registros, cada qual com até 32 
campos e capacidade de 1000 bytes. 
Além disto, somente dois arquivos po- 
dem ser utilizados simultaneamente 
(PRIMARY — SECONDARY), e um má- 
ximo de 64 variáveis internas podem ser 
definidas. 


AVALIAÇÃO 


A recuperação de arquivos indexados 
é muito boa; já o tempo de execução de 
rotinas é algo lento quando comparado 
com programas compilados, mas por se 
tratar de linguagem interpretada, este 
tempo pode ser considerado satisfatório. 

O conjunto de comandos e instruções 
disponíveis é excelente, atendendo com 
perfeição em 90% das aplicações, sendo 
que as principais deficiências estão rela- 
cionadas à parte numérica, onde só se 
dispõe das quatro operações elementares 
e só é possível o controle de números com 
até 10 casas decimais, na versão norte- 
americana, e, segundo a Datalógica, de 
16 casas na versão brasileira. 

A documentação fornecida é bastan- 
te completa permitindo um aprendizado 
rápido, além de ter sido construída de gg 


forma a facilitar as consultas. e 


Filippo Galante é sócio-gerente da Figa Infor- 
mática e trabalha há mais de dez anos na área 
de desenvolvimento de sistemas, sendo os úl- 
timos dois anos com o uso intensivo do dBase 
UA 
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PESSOAL DE 
TEMPO INTEGRAL 
ÚTIL PARA A 
FAMÍLIA TODA, O DIA INTEIRO 
NA HORA DE SE DIVERTIR, POR 
EXEMPLO, É MUITO MAIS EMOCIO 
NANTE PORQUE, ALÉM DE OFERECER 
JOGOS INÉDITOS, É O ÚNICO COM 
2 JOYSTICKS ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM MO 
VIMENTAR AS IMAGENS EM TODAS 
AS DIREÇÕES, MESMO. NA HORA 
DE TRABALHAR E ESTUDAR, O CP 400 
COLOR MOSTRA O SEU LADO SÉRIO. 
MEMÓRIA EXPANSÍVEL, PORTA PARA 
COMUNICAÇÃO DE DADOS, SAÍDA 
PARA IMPRESSORA, E UMA ÓTIMA 
NITIDEZ COM IMAGENS COLORIDAS 
COMO SE TUDO ISSO NÃO 
BASTASSE, A PROLÓGICA AINDA OFE 
RECE A GARANTIA DE QUALIDADE 
DE QUEM É LÍDER NA TECNOLOGIA 
DE COMPUTADORES, E O PREÇO 
MAIS ACESSÍVEL NA CATEGORIA 
NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AO FL 
TURO. COMPRE SEU CP 400 COLOR 
IMEDIATAMENTE 
EMOÇÃO E INTELIGÊNCIA NUM 
EQUIPAMENTO SÓ. 
* MICROPROCESSADOR: 6809E COM 











9 CORES, E TEM UMA RESOLUÇÃO 
GRAFICA SUPERIOR A 49.000 
PONTOS 
* MEMÓRIA ROM: 16K BYTES 
PARA SISTEMA OPERACIONAL E 
INTERPRETADOR BASIC 
* MEMÓRIA RAM: O CP 400 COLOR 
ESTA DISPONÍVEL EM DOIS MODELOS 
* MODELO 16K: 


EXPANSÍVEL A 
= GAK BYTES 
* MODELO 64K 
== ATE G4K BYTES 
QUANDO USADO 
COM DISQUETES 
(DISPONÍVEL 
EM DEZEMBRO) 
* O CP 400 COLOR DISPÕE DE 
CARTUCHOS DE PROGRAMAS COM 
16X BYTES DE CAPACIDADE, 
QUE PERMITEM O CARREGAMENTO 
INSTANTÂNEO DE JOGOS, 
LINGUAGENS E APLICATIVOS COMO 
BANCO DE DADOS, PLANILHAS 
DE CÁLCULO, EDITORES DE TEXTOS, 
2ATIVOS FINANCEIROS, 
APLICATIVOS GRÁFICOS, ETC 
* SAÍDA SERIAL R$ 232 C QUE 
PERMITE COMUNK ) DE DADOS 
ALÉM DO QUE, ATRAVÉS DESTA 
PORTA, VOCÊ PODE CONECTAR 





















REDE DE TRABA- VE 
LHO COM e 
OUTROS MICROS 

* PORTA PARA 
GRAVADOR CAS- 
SETE COM GRAVAÇÃO E LEITURA 
DE ALTA VELOCIDADE 

* SAÍDAS PARA TV EM CORES E MONI 
TOR PROFISSIONAL 

* DUAS ENTRADAS PARA JOYSTICKS 
ANALÓGICOS QUE OFERECEM 
INFINITAS POSIÇÕES NA TELA, 
ENQUANTO OUTROS TÊM SOMENTE 
8 DIREÇÕES. 

* AMPLA BIBLIOTECA DE SOFTWARE 

JÁ DISPONÍVEL 


* ALIMENTAÇÃO: 110-220 VOLTS 
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SEU CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PROLÓGICA 
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